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PROTOTYPE  REPORT  GENERATION  FACILITY 
IN  THE  DATA  TRAFFIC  MANAGEMENT  SYSTEM 


1  INTRODUCTION 


Background 


Information  on  U.S.  Army  military  construction  (MILCON)  projects  is  stored  on  a 
large  number  of  different  major  data  systems  Army-wide.  Each  system  serves  a  set  of 
special  needs  for  the  Army  branch  using  it;  however,  different  hardware  and  software 
configurations  often  impede  data  transfer  and  consistency  among  systems,  frustrating 
attempts  to  access  all  relevant  information. 


The  U.S.  Army  Construction  Engineering  Research  Laboratory  (USA-CERL)  is 
developing  the  Data  Traffic  Management  System  (DTMS)  to  support  mutual  data  consis¬ 
tency  among  MILCON  data  systems  and  coherent  access  to  information  stored  in  these 
systems.  The  DTMS  is  a  collection  of  software  facilities  currently  residing  on  a 
McDonnell  Douglas  Information  Support  Group  (formerly  TYMSHARE)  computer. 


The  DTMS  consistency  function  involves  automatically  capturing  data  updates  in 
one  system  and  posting  them  to  other  systems  (regardless  of  hardware  and  software 
configurations)  with  no  human  intervention. 1  The  DTMS  coherent  access  function  solves 
two  related  problems— retrieval  of  standard  reports  and  generation  of  ad  hoc  reports 
from  multiple  data  systems.  USA-CERL,  in  conjunction  with  the  University  of  Illinois,  is 
developing  the  Report  Generation  Facility  (RGF),  a  DTMS  subsystem  to  handle  the 
coherent  access  function. 


The  RGF  provides  standardized  ways  to  produce  reports  with  minimum  user  exper¬ 
tise  and  supports  location  and  retrieval  of  data  from  many  sources  to  produce  integrated 
reports.  The  RGF  consists  of  three  major  components:  a  Data  Dictionary/  Directory 
System  (DDS),  a  User  Interface  (UI),  and  a  Data  Systems  Interface  (DSI).  The  DDS 
maintains  all  location  and  access  path  information  on  data  items  stored  in  data  systems 
served  by  the  RGF.  The  Ul  is  designed  to  accept  an  English-like  query.  It  processes  the 
query  to  determine  which  data  system(s)  contains  the  information  requested  by  the 
user.  One  of  the  Ul's  major  functions  is  to  determine  if  a  user  query  can  be  answered  by 
using  one  or  more  of  the  standard  reports  provided  by  the  individual  data  systems.  When 
the  user  requests  information  contained  in  standard  reports,  the  UI  announces  the 
existence  of  these  reports  and  allows  the  user  to  select  one  or  more  of  them.  The 
keywords  and  qualifications  provided  in  the  user's  query  are  passed  to  the  DSI,  which  then 
links  the  RGF  with  each  of  the  data  systems  served  by  the  DTMS.  When  a  standard 
report  is  requested,  the  DSI  identifies  and  invokes  the  report  generation  routine  of  that 
report  and  produces  a  report.  A  nonstandard  report  generator  will  be  provided  in  future 
RGF  versions.  The  nonstandard  report  generator  will  be  designed  to  assist  the  user  in 
searching  and  accessing  the  data  systems  and  formatting  the  retrieved  information.  It 
will  be  invoked  when  no  standard  report  can  satisfy  the  user's  query. 


‘G.  G.  Belford,  et  al.,  "Mutual  Consistency  Maintenance  in  a  Prototype  Data  Traffic 
Management  System,"  Proceedings  of  IEEE  COMPDEC  (Institute  of  Electrical  and 
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Electronics  Engineers,  April  1984). 


The  RGF  is  a  powerful,  automatic  system  that  can  generate  different  types  of 
reports  containing  data  from  the  systems  it  serves.  The  prototype  RGF  is  linked  to  two 
representative  Army  data  systems,  the  Construction  Appropriations,  Programming, 
Control,  and  Execution  System  (CAPCES),  and  Military  and  Civil  Progress  Reporting 
System  (MCPFS),  and  supports  only  standard  report  identification,  retrieval,  and 
execution.  However,  the  prototype  RGF  can  be  easily  expanded  to  link  with  the  other 
data  systems.  In  addition,  the  capability  to  generate  nonstandard  reports  in  the  RGF  will 
be  included  in  the  near  future. 


Purpose 

The  overall  purpose  of  this  work  was  to  develop  an  automated  system  that  will 
ensure  mutual  consistency  among  and  coherent  access  to  information  stored  in  the 
Army's  major  data  systems.  The  purpose  of  this  interim  report  is  to  describe  the  RGF— 
the  coherent  access  component  of  the  overall  system— in  terms  of  structure,  function, 
and  implementation  work  to  date. 


Approach 

Commercially  available  reports  generation  systems  were  investigated  for  applic¬ 
ability  to  the  DTMS.  The  DDS  selected  is  DATAMANAGER,  from  MSP,  Inc. 

The  current  RGF  is  designed  to  run  under  the  IBM  Conversational  Monitoring 
System  (CMS)  environment  and  interface  with  the  FOCUS  data  base  management 
system.  All  major  programs  in  the  RGF  are  written  in  PL/1,  making  it  easily  portable  in 
an  IBM  environment.  (The  Programming,  Administration,  and  execution  [PAX]  System  is 
the  DTMS  environment,  currently  using  an  IBM  370/3083  host  computer.  The  PAX 
environment  is  expected  to  use  IBM-type  computers  in  the  future.) 


Scope 

This  report  describes  the  RGF  and  implementation  work  completed  to  date.  Future 
versions  of  the  RGF  will  be  described  in  reports  that  will  supersede  this  one. 


2  RGF  STRUCTURE  AND  FUNCTIONS 


Figure  1  is  a  schematic  diagram  of  the  RGF.  Metadata  (i.e.,  information  on  data 
stored  in  the  data  systems  served  by  the  RGF)  are  kept  in  the  DDS  (DATAMANAGER). 
Specifically,  the  DDS  provides  location  and  access  path  information  and  lends  support  to 
the  DSI  for  access  to  individual  data  systems.  In  addition,  the  DDS  supports  keyword 
searches  and  maintains  descriptive  information  on  standard  report  generators  linked  to 
the  DSI. 

The  UI  is  designed  to  accept  an  English-like  query.  To  allow  the  user  to  phrase  a 
query  using  familiar  terms,  the  UI  maintains  a  Thesaurus  of  Search  Keywords  and 
Internal  Keywords  (TSK).  The  TSK  maps  user-defined  keywords  to  official  internal 
keywords  maintained  in  the  DDS.  'Hie  UI  analyzes  the  query,  captures  the  search 
keywords  by  consulting  the  TSK,  and  accesses  the  DDS  to  retrieve  the  necessary  infor¬ 
mation  on  target  data  items,  such  as  the  item  names,  format,  and  location.  The  data 
item  names  and  qualifications  thus  obtained  by  the  UI  are  placed  in  the  Report  Inform¬ 
ation  File  (RIF).  Based  on  information  in  the  RIF,  the  UI  identifies  the  data  system(s) 
containing  the  data  requested  by  the  user.  Another  major  function  of  the  UI  is  to 
determine  if  the  user  query  can  be  answered  by  one  or  more  standard  reports  provided  by 
the  individual  data  systems  or  by  the  RGF.  As  mentioned  in  Chapter  1,  when  the  user 
requests  information  contained  in  one  or  more  standard  reports,  the  UI  announces  the 
existence  of  these  reports  and  allows  the  user  to  select  one  of  them.  Should  this  report 
not  completely  satisfy  the  user,  a  second  report  can  be  chosen,  and  so  forth. 

The  DSI  links  the  RGF  with  each  data  system  served  by  the  DTMS.  The  DSI  inter¬ 
acts  with  the  UI  via  the  RIF.  When  a  standard  report  is  requested,  the  DSI  identifies  and 
invokes  the  report  generation  routine  that  produces  it.  This  routine  identifies  target 
data  items  and  qualifications  of  that  report.  (A  target  data  item  is  an  item  accessed  by 
the  report  generation  routine.  It  forms  a  part  of  the  report  contents.  A  qualification  is 
not  used  directly  to  generate  the  report;  rather,  it  narrows  the  range  of  search  by  the 
report  generation  routine.  For  example,  it  might  limit  the  report  to  data  for  a  particular 
year  or  project.)  If  the  user  does  not  provide  some  qualifications  needed  for  the  report  in 
the  initial  query,  the  selected  report  generation  routine  obtains  them  by  prompting  the 
user.  After  all  qualifications  are  obtained,  the  data  access  and  formatting  routines  are 
invoked  to  produce  the  report.  When  a  standard  report  generation  routine  is  already 
provided  in  the  data  system,  the  RGF  makes  use  of  that  routine  rather  than  duplicating  it 
in  the  facility. 

In  the  next  RGF  version,  when  no  standard  report  can  satisfy  the  query,  the  UI  will 
allow  the  user  to  select  the  nonstandard  report  generator  that  will  be  provided.  In  this 
case,  the  nonstandard  report  generator  will  help  the  user  to:  determine  which  data 
systems  hold  the  needed  data,  access  those  systems  to  retreive  the  data,  and  format  the 
retrieved  information. 


3  USER  INTERFACE  AND  QUERY  PROCESSING 


The  UI  is  being  implemented  in  the  prototype  RGF.  Figure  2  shows  the  UI  config¬ 
uration.  The  UI  is  supported  by  the  DDS,  under  which  a  Dictionary  of  Data  Definitions 
(DDD)  is  maintained.  The  UI  consists  of  two  major  components— the  Query  Parser  (QP) 
and  the  Decision  Maker  (DM).  The  QP  and  the  DM  use  the  TSK  and  DDD.  Information 
obtained  when  the  UI  processes  the  query  is  placed  in  the  RIF.  The  RIF  provides  input  to 
the  DSI  (described  in  Chapter  4).  Important  features  to  understand  in  query  processing 
are  the  query  language  supported  by  the  UI,  the  UI's  two  components,  and  the  contents 
and  structures  of  the  TSK  and  DDD. 


Query  Language 

The  UI  accepts  from  the  user  a  wide  range  of  queries  phrased  in  something  like 
natural  language.  In  particular,  the  query  language  allows  the  user  to  phrase  queries  in 
terms  of  familiar  search  words  and  qualifications.  At  the  same  time,  the  language  is 
easy  to  parse. 

The  important  components  in  any  query  are  search  keywords  (names  of  target  data 
items)  and  qualifications  (used  to  narrow  the  scope  of  the  search).  The  qualifications  are 
optional.  (Later  in  the  session  with  the  RGF,  if  the  user  selects  a  standard  report  as  the 
response,  the  RGF  will  prompt  for  all  necessary  qualifications  if  they  have  not  been 
entered  in  the  initial  query.)  The  search  terms  and  qualifications  may  be  separated  by 
spaces,  special  symbols,  and  meaningless  words. 

The  syntax  of  the  query  language  is  defined  formally  in  Figure  3.  In  this  figure, 
REPORT,  IS,  ARE,  AND,  =,  WITH,  WHERE,  FOR,  and  are  terminal  symbols.  A 
<speeial  string>  refers  to  a  term  recognizable  by  the  QP.  This  term  can  be  a  search 
keyword.  Here,  an  "internal  keyword"  is  defined  as  a  term  stored  in  the  DDD  that  may 
be  used  to  search  the  data  dictionary  for  names,  locations,  and  similar  information  on 
actual  data  items  in  the  data  systems  served  by  the  RGF.  Alternatively,  the  <special 
string>  may  be  an  unofficial  term  defined  earlier  by  the  user.  The  corresponding  internal 
keywords  would  then  be  stored  in  the  TSK.  A  term  defined  in  the  TSK  is  called  a  "search 
keyword."  Blank  <space>,  literal  <string>,  and  integer  <digit  number>  have  their  usual 
meanings.  <Junk>  refers  to  any  string  that  is  neither  a  terminal  symbol  nor  a  term 
defined  in  the  TSK. 

Three  examples  of  legal  queries  are: 

TELL  ME  SOMETHING  ABOUT  PROJECT  COST 

SHOW  THE  PROJECT  COST  FOR  PROJECT=B12  AND  FISCAL  YEAR=81 

REPORT  PROGRAM  COST  WITH  PROJF.CT=B12  AND  YEAR=81. 

In  each  of  these  queries,  the  recognized  search  keywords  are  "project"  and  "cost."  In  the 
first  query,  everything  else  is  parsed  as  <junk>.  In  the  second  query,  the  search  keyword 
"cost"  is  followed  by  a  qualification  beginning  with  the  qualifier  "FOR"  and  specifying 
values  for  "PROJECT"  and  "FISCAL  YEAR."  The  third  query  is  similar  to  the  second 
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Thesaurus  of  Search  Keywords  (TSK) 


To  use  a  familiar  term,  the  user  first  must  define  this  term  by  entering  the  term's 
definition  in  the  TSK.  (When  the  term  is  not  defined  in  the  TSK,  it  is  parsed  as  <junk>; 
i.e.,  it  is  not  recognized  by  the  QP.)  Specifically,  the  definition  of  a  term  in  the  TSK  is  a 
mapping  of  it  into  a  list  of  all  corresponding  "official"  internal  keywords  and  qualifying 
item  names.  Again,  terms  defined  by  the  user  in  the  TSK  are  search  keywords;  the  TSK 
is  designed  to  allow  for  natural  expansion  of  the  set  of  search  keywords. 

The  TSK  is  implemented  as  a  hash  table  that  maps  each  search  keyword  to  all 
corresponding  internal  keywords.  The  hash  table  consists  of  two  parts:  (1)  a  primary 
table  implemented  with  a  separate  chaining  and  bucket-hashing  scheme,  and  (2)  an 
overflow  table  used  to  hold  additional  search  keywords  hashed  to  the  same  address.  The 
overflow  table  has  the  same  structure  as  the  primary  table,  but  the  access  method  is 
different.  Appendix  A  shows  the  hash  table  data  structure. 


For  each  term  in  the  query,  a  hash  address  is  generated  using  the  hash  function 
defined  below  where  a  term  W  of  length  k  is  represented  as: 


W  Ck-lCk-2Ck-3***‘C2ClC0 


[Eq  1] 


Let  Sj  denote  the  converted  internal  bit-string  for  Cj.  Then, 


H(W)  =  (S  *  rk  1  ♦  Sk_2  *  rk"2  +  -  +  Sx*  r1  ♦  S  *  r° )  mod  p  [Eq  2] 


In  this  implementation,  p  =  1013  and  r  =  7  (Appendix  A  explains  p). 

To  locate  the  internal  keyword  list  (if  any  exists)  for  a  given  term,  the  hash  address 
is  used  as  an  index  into  the  primary  table.  The  term  is  then  compared  with  the  contents 
of  the  bucket  entries.  If  the  term  is  found  in  one  of  the  records  within  the  bucket,  it  is 
regarded  as  a  search  keyword  and  the  corresponding  internal  keyword  list  comprises  the 
mapped  internal  keywords  for  this  search  keyword.  Otherwise,  the  overflow  pointer  is 
followed  to  find  an  overflow  entry  and  the  process  is  continued  until  either  the  term  is 
found  or  no  more  entries  exist.  If  the  given  term  is  not  found  in  the  hash  table,  it  is  not 
a  search  keyword;  that  is,  it  is  not  a  term  recognized  by  the  QP. 


Dictionary  of  Data  Definitions  (DDD) 

The  DDD  is  a  facility  managed  by  the  DDS.  It  contains  metadata  about  each  item 
stored  in  the  data  system.  That  is,  it  contains  item  names,  descriptions,  formats, 
locations,  and  similar  information.  In  addition,  the  DDD  keeps  descriptive  information 
on  all  standard  reports  linked  via  the  DSI  to  the  RGF.  That  is,  it  contains  information 
such  as  the  report  identifier,  description,  number  and  names  of  target  data  items, 
number  of  qualifications  and  the  qualifying  item  names  for  each  standard  report. 


The  DDD  is  created  and  maintained  under  the  DDS.  It  has  a  hierarchical  structure 
with  the  following  entities: 

FOCUS-DATABASE 

FOCUS-FILE 


GROUP 

ITEM. 

Currently,  the  DDD  contains  metadata  for  the  CAPCES  and  MCPRS  data  systems. 
Appendix  B  lists  the  CAPCES  data  elements  as  contained  in  the  DDD. 

The  FOCUS-DATABASE  entity  (or  record  type)  is  at  the  top  of  the  hierarchy.  A 
data  base,  e.g.,  the  CAPCES  data  base,  can  be  a  member  of  FOCUS-DATABASE.  That 
is,  any  particular  data  base  is  an  instance  of  the  type  FOCUS-DATABASE,  and  its 
descriptor  would  be  entered  as  one  of  these  top  records  in  the  hierarchy.  Each  FOCUS- 
DATABASE  contains  one  or  more  FOCUS-FILEs.  An  example  is  the  CAPCES 
PMMFILE.  Its  descriptor  would  therefore  be  entered  as  a  FOCUS-FILE  record  under  the 
CAPCES  FOCUS-DATABASE  record.  In  general,  a  FOCUS-FILE  is  a  logically  indepen¬ 
dent  file  unit  in  the  FOCUS  data  base;  it  is  the  unit  referred  to  in  an  OPEN  or  a  CLOSE 
command,  and  contains  one  or  more  FILEs  that  correspond  to  the  SEGMENTS  in  the 
FOCUS  data  base  system.  A  GROUP  in  the  FOCUS  data  base  is  described  by  the 
member  type  GROUP.  An  ITEM  is  an  atomic  entity  in  the  DDD  that  describes  a  FIELD 
in  the  FOCUS  data  base  system. 

In  the  future,  a  REPORT  entity  will  be  added  into  the  DDD.  This  entity  will 
describe  standard  reports  accessible  via  the  RGF.  Its  attributes  will  include  the  report 
identifier,  full  report  name,  content  description,  number  of  target  data  items  and  their 
names,  the  number  of  qualifying  items  and  their  names,  and  similar  information  needed 
to  complete  the  RIF.  Currently,  descriptive  information  on  the  standard  reports  is 
stored  in  the  Standard  Report  Definition  (SRDEF)  File. 

Internal  keywords  are  contained  in  the  CATALOGUE  attribute  for  each  ITEM 
member.  The  DDD  can  be  accessed  via  the  DATAMANAGER  User  Interface  facility. 
The  following  two  DATAMANAGER  commands  can  be  used  to  retrieve  data  in  the 
SRDEF: 

WHAT  USES  <item> 

REPORT  <item>. 

The  first  command  finds  the  access  path  for  the  item;  the  second  one  gets  all  attributes 
of  the  item. 

Query  Parser  (QP) 

The  QP  accepts  user  queries,  picks  up  the  search  keywords  by  consulting  the  TSK, 
classifies  each  search  keyword  as  either  a  target  data  item  or  a  qualifying  item,  and 
associates  each  qualifying  item  with  its  value.  It  also  finds  the  internal  keywords 
corresponding  to  each  search  keyword  in  the  query.  The  QP  then  accesses  the  DDD  to 
get  information  about  the  real  data  items  for  target  data  and  qualifying  items. 
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In  parsing  a  query,  the  QP  first  locates  tokens  in  the  query.  A  token  can  be  a  legal 
word,  a  a  or  a  reserved  word.  A  legal  word  in  a  query  contains  only  letters,  digits, 
and  '  The  reserved  words  in  this  query  language  include  WITH,  WHERE,  FOR,  IS,  ARE, 
and  AND.  Figure  4  shows  state  transition  for  the  QP. 

The  QP  prompts  the  user  to  enter  a  query  and  parses  the  query  according  to  the 
state  transition  diagram  in  Figure  4.  It  generates  two  lists— one  containing  the  target 
data  items  and  one  containing  the  qualifying  items  found  in  the  query.  For  each  target 
data  or  qualifying  item,  more  than  one  internal  keyword  may  correspond  to  the  search 
keyword  used  to  name  the  item.  The  corresponding  internal  keyword  list  is  retrieved 
from  the  TSK.  After  the  QP  translates  the  search  keywords  into  internal  keywords,  it 
consults  the  DDD  to  get  information  about  the  real  data  item(s).  This  procedure  helps 
detect  nonexisting  data  items  and  reduces  reporting  errors. 

The  target  items  and  qualifying  items  lists  are  organized  as  shown  in  Figures  A2 
and  A3  in  Appendix  A.  The  DM  uses  these  lists  later. 


Decision  Maker  (DM) 

The  DM  accepts  as  inputs  the  lists  of  target  data  items  and  qualifying  items 
generated  by  the  QP.  The  DM  consults  the  DDD  to  get  relevant  information  regarding 
each  item  in  these  lists.  (The  UI  facility  of  DATAMANAGER  is  used  for  this  purpose.) 
This  information  is  written  into  the  RIF.  The  RIF  consists  of  two  subfiles— the  report 
file  and  the  data  item  file.  Figure  5  shows  their  formats  and  contents.  The  RIF  is  the 
interface  between  the  UI  and  DSI. 

To  determine  how  well  each  standard  report  matches  the  query,  the  following 
process  is  carried  out:  let  the  set  of  target  data  items  in  the  query  be  Q  =  {q,,  q2,  .... 
qmJ.  Let  R  be  the  number  of  standard  reports  linked  to  the  RGF.  Each  standard  report  i 
is  characterized  by  the  set  =  {3p  32>  ...,  3nJ  of  target  data  items  contained  in  it, 
where  n  =  f(i)  is  the  number  of  target  data  items  in  the  standard  report  i.  The  decision 
making  process  is  then: 

1.  For  i=l  to  R,  determine  the  degree  of  the  match  between  the  query  and 
standard  report  i.  Compare  each  target  data  item  in  Q  with  each  target  data  item  in  Sj. 

•  If  Q  =  Sj,  then  standard  report  i  satisfies  the  query  exactly.  The  match 
factor  is  assigned  the  value  1. 

•  If  Q  Sj  =  <t>,  then  standard  report  i  does  not  satisfy  the  query.  The  match 
factor  is  assigned  the  value  3. 

•  If  Q  Sj  *  $  and  Q  is  contained  in  the  set  Sj,  then  standard  report  i  satisfies 
the  query  but  provides  extraneous  information.  The  match  factor  is  assigned 
the  value  1. 

•  If  Q  S:  *  $  and  Q  contains  S,  then  standard  report  i  meets  the  query  in 
part.  The  match  factor  is  assigned  the  value  2. 
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Figure  4.  QP  state  transition. 
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Figure  5.  Formats  of  report  file  and  data  item  file  in  RIF. 


2.  Count  the  number  of  reports  with  the  same  factor  and  store  the  count  in  the 
array  pn  of  three  components,  one  for  each  value  of  the  match  factor: 

R  =  pn(l)  +  pn(2)  +  pn(3)  [Eq  3] 


where  pn(j)  is  the  number  of  reports  that  have  match  factors  equal  to  j. 

3.  If  pn(l)  >  0,  list  the  report  identifiers  and  full  names  of  the  standard  reports 
with  match  factors  equal  to  1  and  ask  the  user  if  he  or  she  wishes  to  select  one  of  these 
reports.  If  the  user  finds  one  of  the  standard  reports  acceptable  and  selects  it,  set  the 
SR  flag  and  go  to  step  6. 

4.  If  pn(2)  >  0,  list  the  report  identifiers  and  full  names  of  standard  reports  with 
match  factors  equal  to  2;  i.e.,  the  ones  that  partly  satisfy  the  query.  If  the  user  chooses 
one  of  them,  set  the  SR  flag  and  to  go  step  6.  If  the  user  finds  none  of  these  reports 
acceptable,  he  or  she  will  be  asked  if  a  nonstandard  report  is  required.  If  the  answer  is 
yes,  set  the  NON  SR  flag,  and  go  to  step  6.  Otherwise,  go  back  to  the  beginning  and 
prompt  the  user  for  another  query. 

5.  If  pn(l)  =  pn(2)  =  0,  display  the  message:  "no  standard  reports  meet  query 
requirements."  Then  ask  the  user  whether  a  nonstandard  report  is  desired.  If  the  answer 
is  yes,  set  the  NON  SR  flag  and  go  to  step  6. 

6.  Depending  on  whether  the  SR  flag  or  the  NON  SR  flag  has  been  set,  write  the 
query  information  to  the  RIF  file. 

After  report  identifiers  and  full  names  are  shown  on  the  screen,  the  user  may  enter 
"?"  to  request  that  descriptions  for  the  standard  reports  be  displayed.  The  descriptions 
allow  a  user  to  make  an  intelligent  decision  as  to  whether  a  given  report  fulfills  all  the 
requirements.  When  the  user  responds  with  a  valid  standard  report  identifier,  the  UI 
displays  the  selected  report  identifier  and  prompts  the  user  to  verify  it.  If  the  user 
enters  "yes,"  the  RIF  file  will  be  written  and  the  report  generation  continues.  Otherwise, 
the  UI  asks  the  user  to  reenter  the  report  identifier. 


4  DATA  SYSTEMS  INTERFACE 


As  mentioned  earlier,  DSI  links  the  RGF  to  individual  data  systems  served  by  the 
DTMS.  The  section  of  the  DSI  linking  the  RGF  to  a  particular  standard  report  generator 
is  partitioned  into  two  parts.  The  first  part  checks  the  RIF  to  determine  if  the  user  has 
provided  all  necessary  qualifications  in  the  initial  query;  if  more  qualifications  are 
needed,  it  prompts  the  user  to  enter  them.  The  second  part  invokes  the  data  access  and 
report  generation  routines  to  actually  generate  the  report;  these  routines  are  executed 
by  calling  their  names. 

A  PL/1  program  named  QUAL  handles  the  first  part.  This  program  reads  the  two 
RIF  files  (RIFR  and  RIFD)  (Figures  5  and  6)  prepared  by  the  UI. 

The  RIFR  contains  the  report  generation  routine  identifier  along  with  target  data 
and  qualifying  data  items  required  by  the  routine.  For  each  qualifying  data  item,  two 
spaces  are  reserved  in  case  a  range  of  values  is  to  be  specified  for  the  data  item.  Each 
data  item  has  an  associated  flag  that  indicates  whether  a  value  has  been  specified  for 
it.  When  the  user  has  specified  a  value  in  the  initial  query,  the  flag  is  set  to  1; 
otherwise,  it  is  set  to  0. 

The  RIFD  contains  detailed  information  about  target  data  and  qualifying  data  items 
of  the  chosen  report  generator  routine.  Specifically,  it  includes  the  format,  location,  full 
name,  and  description  of  each  target  data  item  and  qualifying  data  item.  This  detailed 
information  is  displayed  when  the  system  prompts  the  user  to  specify  values  for  the 
qualifications. 

The  program  QUAL  reads  the  flag  for  each  qualifying  data  item  sequentially.  If  a 
flag  is  1,  it  passes  to  the  next  qualifying  data  item,  provided  there  is  one.  If  the  flag  is 
0,  the  program  prints  the  following  message  on  the  screen: 

TO  COMPLETE  THE  QUERY,  YOU  MUST  SPECIFY 

THE  VALUES  OF  FOLLOWING  DATA  ITEMS: 

CFY  IN  PMMFILE  FORMAT=A2 
DESC:FISCAL  YEAR. 

The  first  two  lines  are  printed  only  once— at  the  beginning  of  the  procedure.  The  next 
two  lines  are  repeated  for  each  qualifying  data  item  for  which  a  value  is  as  yet 
unspecified.  Note  that  in  the  above  message,  information  extracted  from  the  RIF  data 
file  gives  the  user  a  more  detailed  explanation  of  the  qualifying  data  items. 

When  a  user  replies  to  a  prompt  with  a  qualification  value,  the  program  accepts  the 
value  and  inserts  it  into  the  corresponding  position  in  the  RIF.  This  process  is  repeated 
until  all  qualifications  are  specified.  If  all  qualifications  have  been  specified  in  the 
initial  query  phase,  the  user  will  not  see  the  above  message. 

As  mentioned  earlier,  the  report  generation  routines  already  provided  in  the  data 
systems  are  used  when  possible.  Thus,  new  routines  with  the  same  function  need  not  be 
written  for  the  DSI.  However,  some  modifications  had  to  be  made  to  the  standard 
routines  before  including  these  routines  in  the  DSI;  this  is  because  most  of  these  routines 
interactively  prompt  the  user  to  specify  the  qualifications  needed  to  delineate  a  report 
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(but  they  do  not  help  the  user  by  giving  detailed  information  such  as  the  item's  full  name 
and  description).  The  standard  routines  have  been  modified  to  read  qualification  values 
from  the  filled-in  fields  in  the  RIF  files. 


5  CURRENT  IMPLEMENTATION 


The  current  prototype  RGF  is  linked  only  to  the  CAPCES  and  MCPRS  data 
systems.  Six  standard  reports  can  be  recognized  and  generated  via  the  RGF.  Appendix  C 
shows  the  current  contents  of  the  system  tables  in  the  SRDEF  that  permit  recognition  of 
the  first  two  reports.  Additional  standard  reports  can  be  integrated  into  the  RGF  by 
expanding  these  tables  and  modifying  the  DSI  as  indicated  in  Chapter  4.  More  data 
systems  can  be  linked  to  the  RGF  by  expanding  the  DDD,  TSK,  and  tables  in  the  SRDEF 
file. 


RGF  Operations:  Example 

Appendix  D  depicts  a  typical  session  of  query  processing.  To  illustrate  the  proto¬ 
type  RGF's  operations,  consider  the  query  below: 

TELL  ME  ABOUT  COST  SUMMARIZED  BY  PROJECT  ELEMENT. 

At  the  start  of  the  session  with  the  RGF,  the  SRDEF  and  TSK  file  are  read  into  the  RGF 
work  area.  The  following  steps  are  then  carried  out  after  the  user  types  in  the  query: 

1.  The  QP  determines  that  COST,  PROJECT,  and  ELEMENT  are  search  keywords, 
since  they  are  defined  in  the  TSK  (Table  C3  in  Appendix  C). 

2.  From  the  TSK,  the  search  keywords  COST  and  ELEMENT  are  mapped  into  inter¬ 
nal  keywords  AMOUNT  and  ELEMENT,  respectively.  The  search  keyword  PROJECT  is 
mapped  into  two  internal  keywords,  PROJECT  and  PROGRAM. 

3.  The  following  two  commands  are  issued  to  access  DATAMANAGER  and  get  the 
data  item  name,  PROGELE: 

WHAT  FORMS'AMOUNTVPROJECT', 'ELEMENT' 

WHAT  FORMS'AMOUNT', 'PROGRAM', 'ELEMENT' 

(Table  C2  in  Appendix  C  lists  the  data  stored  under  DATAMANAGER.  Only  the  data 
item  PROGELE  is  indicated  by  internal  keywords  AMOUNT,  PROGRAM,  and  ELEMENT.) 

4.  The  data  item  name  PROGELE  is  compared  with  the  target  data  item  names  of 
the  available  standard  reports.  Using  the  DM  procedure,  standard  report  1  is  chosen. 
Finally,  standard  report  1  is  generated  by  calling  SUMELEM  FOCEXEC. 


Programs  in  the  RGF 

Figure  6  is  a  flowchart  for  the  RGF.  The  functions  of  programs  shown  in  this 
flowchart  or  listed  in  Appendix  E  are  described  below: 

The  program  YSIMAP  performs  the  following  functions: 

1.  Maintains  the  TSK 


2.  Reads  the  data  file  SKWDIN 


3.  Generates  the  output  file  SKWDOUT. 
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The  file  SKWDOUT  is  used  later  in  the  program  YQ1NIT  for  generating  the  hash  table 
already  described. 


The  program  ZSRDEF  has  been  designed  to  generate  descriptive  information  on  any 
standard  report  to  be  linked  with  the  RGF  and  to  enter  the  information  in  the  SRDEF. 
Currently,  this  program  prompts  the  user  to  enter  the  information  needed  to  generate 
the  standard  report  and  records  this  information  in  the  SRDEF.  The  information  on  a 
standard  report  contained  in  the  SRDEF  might  also  be  generated  by  accessing  that  part 
of  the  DDD  containing  the  descriptive  information  on  the  report.  This  part  of  ZSRDEF 
will  be  developed  in  the  future. 

The  module  YUSINTNEW  implements  the  U1  in  the  prototype  RGF.  It  consists  of 
seven  programs: 

1.  YUSINIT  integrates  five  programs,  YQINIT,  YAINIT,  YUIN1T,  YQPARSE,  and 
YU1F.  YUSINIT  calls  YQINIT,  YAINIT,  and  YUINIT  to  carry  out  the  initializations. 
When  the  user  enters  a  query,  YUSINIT  calls  YQPARSE  to  phrase  the  query.  It  then  calls 
YUIF  to  perform  the  decision  procedure  in  the  DM. 

2.  YQINIT  initializes  the  program  YQPARSE.  Specifically,  it  reads  the  data  file 
SKWDOUT  to  establish  the  hash  table. 

3.  YAINIT  initializes  the  program  YACSD.  It  opens  the  DDD  so  it  is  ready  for  use. 

4.  YUINIT  initializes  the  program  YUIF.  It  reads  the  data  file  SRDEF  and  writes 
it  to  the  local  workspace  in  the  module  YUSINTNEW. 

5.  YQPARSE  implements  the  query  parser.  To  generate  the  lists  of  target  data 
items  and  qualifying  items,  this  program  calls  the  program  YACSD  to  access  the  DDD. 
The  DATAMANAGER  command  WHAT  FORMS  is  used  to  get  the  real  data  items. 

6.  YUIF  implements  the  DM.  It  identifies  the  standard  reports  that  match  the  user 
query  and  prompts  the  user  to  choose  one  of  them.  Then  YUIF  generates  the  RIF  data 
files  RIFR  and  RIFD,  which  are  used  later  to  generate  the  selected  report. 

7.  YACSD  accesses  the  DDD  by  calling  the  procedure  DMRUS,  which  interfaces 
between  the  user’s  program  and  the  DDS.  YACSC  issues  the  command  WHAT  FORMS 
with  the  parameters  passed  by  YQPARSE  and  gets  a  list  of  real  data  items  returned  via 
the  interface  program  DMRUS. 

The  QUAL  program  is  responsible  for  completing  the  qualifications  needed  to  generate 
the  selected  standard  report.  If  there  are  qualifying  data  items  with  no  values  assigned 
in  the  RIF  report  file,  the  QUAL  program  prompts  the  user  to  specify  values  for  them. 

All  the  programs  just  mentioned  are  called  from  the  CMS  EXEC  program 
STDREP.  When  the  UI  processes  terminate  and  the  user  chooses  a  standard  report,  the 
STDREP  calls  the  FOCUS  EXEC  program  CTL,  which  invokes  the  needed  report  gener¬ 
ation  routine.  After  the  selected  standard  report  is  generated,  STDREP  asks  the  user  if 
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he  or  she  wants  to  continue,  that  is,  to  type  another  query.  Specifically,  the  following 
message  is  displayed: 

SELECT  ACTION  TO  BE  TAKEN 

1.  EXECUTE  A  DIFFERENT  QUERY. 

2.  EXIT  FROM  THE  REPORT  GENERATOR. 

Appendix  E  includes  all  the  PL/1  programs  and  the  EXEC  and  DATA  files  used  to 
implement  report  generation. 


I 

R* 


is 


y 

$ 

i 


RBJ 

I 


m 


m 


•  «  -  •  - 


¥ 


6  CONCLUSION 


i  |  |  >  f  a  k  B'fc  B>%  .  t .  m  k.  m'  k  m.  M.  I  *•*  k*4  »  m.  *'  It.  *  »«4-*'4  B'  4’.  ■'  I 


LI4l^vl. 


A  prototype  RGF  has  been  developed  to  provide  coherent  access  to  all  DTMS- 
served  data  systems  Army-wide.  It  identifies  standard  reports  that  might  satisfy  the 
user  query  and,  if  the  user  wishes  to  have  a  standard  report,  automatically  invokes  the 
standard  report  generator  to  generate  it.  The  prototype  user  interface  provided  in  the 
RGF  should  enable  the  user  to  generate  reports  containing  data  retrieved  from  any 
number  of  data  systems  easily.  The  user  need  not  have  any  technical  knowledge  about 
the  data  systems;  queries  can  be  issued  using  familiar  terms  with  no  concern  for  the 
location  and  method  of  data  storage. 


The  DDS  plays  an  important  role  in  the  Ul,  maintaining  metadata  about  data  in  the 
data  systems  and  thus  allowing  any  data  item  queries  by  the  user  to  be  located  and 
accessed  readily.  Supported  by  a  well  designed,  powerful,  commercially  available 
dictionary/directory  system,  DATAMANAGER,  the  prototype  RGF  is  readily  expandable 
to  link  multiple  data  systems  and  numerous  standard  reports. 


Future  effort  will  be  directed  toward  implementing  the  following  enhancements: 


1.  More  than  one  standard  report  may  meet  the  user's  requirements  at  any  one 
time.  A  user  will  normally  select  one  of  them.  After  the  selected  report  is  generated, 
the  user  may  want  to  generate  one  or  more  of  the  other  reports  that  also  match  the 
query.  A  loop  will  be  implemented  to  allow  the  user  to  request  these  additional  standard 
reports. 


2.  The  REPORT  entity  will  be  added  into  the  directory  so  that  the  SRDEF  file  can 
be  eliminated. 


3.  For  every  data  system  linked  to  the  RGF,  the  contents  of  the  CATALOGUE 
attribute  in  the  DDD  should  be  captured  automatically  from  the  data  base  definition.  A 
program  will  be  implemented  in  the  DSI  to  scan  the  data  base  definition  stored  in  any 
data  system  and  load  the  DDD  automatically.  Thus,  some  aspects  of  the  tedious  loading 
task  may  be  avoided. 


4.  The  nonstandard  report  generator  should  be  designed  and  a  prototype  nonstan¬ 
dard  report  generator  implemented. 
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APPENDIX  A: 


HASH  TABLE  AND  PROGRAM  INTERFACE  DATA  STRUCTURES 


The  hash  table  is  configured  as  follows: 


Bucket  0 
Bucket  1 


Bucket  p-1 
Bucket  p 


Hashing 

Table 


Overflow 

Area 


Bucket  p+ofsi-1 


where  p  =  1013  and  ofsz  (overflow  table  size)  =  200  in  this  implementation 
Each  bucket  contains  the  information  shown  in  Figure  Al. 


search 
keyword  1 


internal 
keyword  k 


APPENDIX  B: 


CAPCES  DATA  IN  THE  DIRECTORY 


Oyactdmi  terminal  terminal 
SET  LDRTBLS  07 

FILEDEF  DMI  N  TERMINAL  (  BLKSIZE  80  ) 

DMOUT  TERMINAL  (  BLKSIZE  80  ) 

DDTMS  DISK  CERLI  INDEX  A  (  XT  ENT 
DDTMSD  DISK  CERLI  DATA  A  (  XT  ENT 


1  0  0  0  ) 

1  0  0  0  ) 

SOURCE  A  (  XT  ENT  1  0  0  0  ) 

RECOVER  A  (  XT  ENT  1  0  0  0  ) 

LOO  A  (  XT  ENT  1  000  ) 


I 


RELEASE  41 
MODEL  300 
PRODUCED  14NOV83 


DICTIONARY  OPEN 


F  I  L  EDEF 
F  I  LEDEF 
F  I  LEDEF 

F1LEDEF  DDTMS  S  DISK  CERLI 
FILEDEF  DDTMS  E  DISK  CERLI 
FILEDEF  DDTMS J  DISK  CERLI 
DM0  0 

PRODUCT  DATAMANAQER 
MACH  1  NE  IBM 
RELEASE  TAPE  Mfl 3 4 7 6 
I NSTALLAT I  ON 
UNIVERSITY  OF  ILLINOIS 
>d  i  c  t  i  onarj  ddtmi  update 
DM0  1  0  2  3  1  DDTMS 

>authority  1 u i ucdc i 1 ; 

DM0  1  0  0  0  I  AUTHORITY  RECOGNISED 

>report  pmmfl I «  hierarchy; 

REPORT  OF  FOCUS-FILE  PMMFILE 

EDITION  1  ENCODED  BY  MASTER  AT  10.28.30  ON  27 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  0  TIMES 
THIS  MEMBER  CONTAINS  38  DIRECT  REFERENCES 
FOCUS-FILE  PMMFILE 
FORM  DEFAULTED-AS 
CONTA I  NS 

FILE  MAIN 
FILE  ZCPPF I LE 
FILE  ZCP2FILE 
FILE  ZCP3FILE 
FILE  AMPERS1 
FILE  AC  EF  I  LE 
FILE  MPCAF  I  LE 
FILE  MP  ES  FILE 
FILE  MPENFILE 
FILE  S I GF I LE 
FILE  RE PR FILE 
FILE  SUBPF I LE 
FILE  MACOMSEG 
FILE  H1STZCP1 
FILE  HI STZCP2 
FILE  HI STZCP3 
FILE  H I STZCP4 
FILE  H  1  STZCP5 
FILE  HI STACE 1 
FILE  HISTMPES 
FILE  HI STMPE 1 
FILE  HI  S  TMPC  1 
FILE  HI  S  TMPC  2 
FILE  HI STLVL 
FILE  HI STCF Y 
FILE  COM2  S EG 
PILE  S  I T  ES  EG 
FILE  CATS  EG 
FILE  CAT  3DESC 
FILE  D  ES  CR  S  EG 
FILE  D I  VS  EG 
FILE  I NSTS  EG 
FILE  MACMSEG 
FILE  Z  BD I CS  EG 
FILE  AUTHS  EG 
FILE  NOTEAUTH 
FILE  A  P  PR  S  EG 
FILE  NOTES  EG 
REPORT  OF  FILE  MAIN 

EDITION  1  ENCODED  BY  MASTER  AT  1023  18  ON 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  28  DIRECT  REFERENCES 
F  :  L  «  MAIN 
SEOTYPE  S 
SORT  -  KEY 

ITEM  KEYNR 
FORM  DEF AH  I  T ED  -  A S 


RELEASE  DATE  20MAY83 

OPERATING  SYSTEM  CMS 


NOV  1084 


2  7  NOV  10  8  4 
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CONTA I  NS 

ITEM  KEYNR 


ITEM  KN.UPD 
ITEM  KN.SDT 
ITEM  INST 
ITEM  PFT 
ITEM  FY 
I TEM  DATECFY 
ITEM  PCFY 
ITEM  OF Y 
ITEM  CMDC 
ITEM  PRCD 
ITEM  ORIQ.USVC 
ITEM  SIT  E.COD  E 
ITEM  CATCD5 
ITEM  CMD.PR1 
ITEM  DD.SORT.CD 
ITEM  PROG.ELE 
ITEM  PROJECT. DESC 
ITEM  CURR. SCOPE 
I TEM  OR  I  .SCOPE 
ITEM  TYPE. FUNDS 
ITEM  MISSION 
ITEM  TEMP.PN 
ITEM  PERM.PN 
ITEM  MAIN.FILLER 
ITEM  RKEY 
ITEM  MO  B.CROUP 
REPORT  OF  ITEM  KEYNR 
EDITION  1  ENCODED  BY 
ALIAS 
KN 

THIS  MEMBER  IS  DIRECT 
THIS  MEMBER  CONTAINS 
ITEM  KEYNR 
DEFAULTED  -  AS 

CHARACTERS  13 
REPORT  OF  ITEM  KN.UPD 
EDITION  1  ENCODED  BY 
ALIAS 
KNU 

THIS  MEMBER  IS  DIRECT 
THIS  MEMBER  CONTAINS 
ITEM  KN.UPD 
DEFAULTED- AS 
CHARACTERS  1 
REPORT  OF  ITEM  KN.SDT 
EDITION  1  ENCODED  BY 
THIS  MEMBER  IS  DIRECT 
THIS  MEMBER  CONTAINS 
ITEM  KN.SDT 
DEFAULTED-  AS 

CHARACTERS  12 
REPORT  OF  ITEM  INST 

EDITION  1  ENCODED  BY 
ALIAS 

STA .CD 

THIS  MEMBER  IS  DIRECT 
THIS  MEMBER  CONTAINS 
ITEM  INST 
DEFAULTED  -  AS 
CHARACTERS  6 
REPORT  OF  ITEM  PFT 

EDITION  1  ENCODED  BY 
ALIAS 

PM. F I LETYPE 
THIS  MEMBER  IS  DIRECT 
THIS  MEMBER  CONTAINS 
ITEM  PFT 
DEFAULTED- AS 
CHARACTERS  1 
REPORT  OF  ITEM  FY 

EDITION  2  ENCODED  BY 
ALIAS 
CF  Y 

CATALOGUED  AS 
CURRENT 
YEAR 

CONORES  S 
FISCAL 

THIS  MEMBER  IS  DIRECT 


MASTER  AT  10  22.68  ON  27  NOV  1084 


LY  REFERRED  TO  2  TIMES 
0  DIRECT  REFERENCES 


MASTER  AT  10  23  00  ON  27  NOV  1084 


LY  REFERRED  TO  ONCE 
0  DIRECT  REFERENCES 


MASTER  AT  10  23  01  ON  27  NOV  1084 

LY  REFERRED  TO  ONCE 
0  DIRECT  REFERENCES 


MASTER  AT  10  23  01  ON  27  NOV  1084 


LY  REFERRED  TO  ONCE 
0  DIRECT  REFERENCES 


MASTER  AT  10  23  02  ON  27  NOV  1084 


LY  REFERRED  TO  ONCE 
0  DIRECT  REFERENCES 


MASTER  AT  16  00  38  ON  08  DEC  1084 


LY  REFERRED  TO  ONCE 
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THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  FY 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OP  ITEM  DAT  EC  F  Y 

EDITION  I  ENCODED  BY  MASTER  AT  10.23.04  ON  27 
ALIAS 

DT.CFY.CHG 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  DATECFY 
DEFAULTED  -  AS 

NUMERIC-CHARACTER  ft 
REPORT  OF  ITEM  PCPY 

EDITION  1  ENCODED  BY  MASTER  AT  10.23.06  ON  27 
ALIAS 

PR  EV  I OUS.CFY 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PCFY 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OF  ITEM  OF  Y 

EDITION  1  ENCODED  BY  MASTER  AT  10.23.06  ON  27 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  OF  Y 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OF  ITEM  CMDC 

EDITION  1  ENCODED  BY  MASTER  AT  10.2306  ON  27 
ALIAS 

CMD.CD 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 


NOV  1004 


NOV  1084 


NOV  1084 


NOV  1084 


ITEM  CMDC 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OF  ITEM  PRCD 

EDITION  1  ENCODED  BY  MASTER  AT  10.23  07  ON 


NOV  1084 


ALIAS 

PROG. CD 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PRCD 
DEFAULTED • AS 
CHARACTERS  2 

REPORT  OF  ITEM  ORIG.USVC 

EDITION  1  ENCODED  BY  MASTER  AT  10  23  07  ON  27 
ALIAS 

ORUSVC 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ORIG.USVC 
DEFAULTED • AS 
CHARACTERS  2 

REPORT  OF  ITEM  SITE. CODE 

EDITION  1  ENCODED  BY  MASTER  AT  10  23  08  ON  27 
ALIAS 

I NCODE 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SI T  E .COD  E 
DEFAULTED  -  AS 
CHARACTERS  6 

REPORT  OF  ITEM  CATCD6 

EDITION  1  ENCODED  BY  MASTER  AT  10.23  00  ON  27 

ALIAS 
CAT  6 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 


NOV  1084 


NOV  1084 


NOV  1084 


THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  CATCD5 

DEFAULTED  -  AS 
CHARACTERS  6 
REPORT  OF  ITEM  CMD.PRI 

EDITION  1  ENCODED  BY  MASTER  AT  10  23  00  C 

ALIAS 
CMDP 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

1 TEM  CMD.PR I 


NOV  1084 


ft 


-  -  -  -  - 


mmsm 


SRS5W3 


AV. . 
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DEFAULTED- AS 
CHARACTERS  5 

REPORT  OF  ITEM  DD.SORT.CD 

EDITION  1  ENCODED  BY  MASTER  AT  10.23.10  ON 
Al  I  AS 
DDSC 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  DD.SORT.CD 
DEFAULTED*  AS 
CHARACTERS  2 
REPORT  OF  ITEM  PROG  _  EL  E 

EDITION  2  ENCODED  BY  MASTER  AT  14.07,44  ON 
ALIAS 
PE 

CATALOGUED  AS 
AMOUNT 
ELEMENT 
PROGRAM 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PROG  _  EL  E 
DEFAULTED  -  AS 
CHARACTERS  6 

REPORT  OF  ITEM  PROJECT.DESC 

EDITION  1  ENCODED  BY  MASTER  AT  19.23.11  ON 
ALIAS 
PD  ES 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PROJECT.DESC 
DEFAULTED- AS 

CHARACTERS  2 fl 
REPORT  OF  ITEM  CURR. SCOPE 

EDITION  1  ENCODED  BY  MASTER  AT  10  23  12  ON 

ALIAS 

SCOPE.C 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  CURR.SCOPE 
DEFAULTED  -  AS 

NUMER I C- CHARACTER  9 
REPORT  OF  ITEM  ORI.SCOPE 

EDITION  1  ENCODED  BY  MASTER  AT  10.23  13  ON 

ALIAS 

SCOPE.O 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  OR  I  .SCOPE 
DEFAULTED  -  A  S 

NUMER I C - CHARACTER  0 
REPORT  OF  ITEM  TY  PE.FUND S 

EDITION  1  ENCODED  BY  MASTER  AT  10  23  13  ON 

ALIAS 
TF 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  TYPE. FUNDS 
DEFAULTED  -  A  S 
CHARACTERS  1 
REPORT  OF  ITEM  MISSION 

EDITION  I  ENCODED  BY  MASTER  AT  102314  ON 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MISSION 
DEFAULTED  -  A  S 
CHARACTERS  1 
REPORT  OF  ITEM  TEMP.PN 

EDITION  1  ENCODED  BY  MASTER  AT  10  23  16  ON 
ALIAS 
TPN 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  TEMP.PN 
DBF A V L TED  -  AS 
CHARACTERS  7 
REPORT  OF  ITEM  PRRM.PN 

EDITION  1  ENCODED  BY  MASTER  AT  10  23  16  ON 
ALIAS 
PPN 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 


2  7  NOV  19  8  4 


0  6  DEC  19  8  4 


2  7  NOV  10  8  4 


2  7  NOV  19  8  4 


2  7  NOV  10  8  4 


2  7  NOV  10  8  4 


2  7  NOV  19  8  4 


2  7  NOV  19  8  4 


2  7  NOV  19  8  4 


THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PERM.PN 
DEFAULTED  -  AS 
CHARACTERS  7 

REPORT  OF  ITEM  MAIN.FILLER 

EDITION  l  ENCODED  BY  MASTER  AT  19.23.16  ON  27  NOV  1984 
ALIAS 
F  I  LL  1 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MAIN.FILLER 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  ITEM  RKEY 

EDITION  I  ENCODED  BY  MASTER  AT  10.23.17  ON  27  NOV  1004 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  RKEY 
DEFAULTED  -  AS 
CHARACTERS  8 

REPORT  OP  ITEM  MOB. GROUP 

EDITION  1  ENCODED  BY  MASTER  AT  10.23  18  ON  27  NOV  1984 
ALIAS 

MOB.GP 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MOB. GROUP 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  FILE  ZCPPFILE 

EDITION  1  ENCODED  BY  MASTER  AT  19  24.01  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  62  DIRECT  REFERENCES 

FILE  ZCPPF I LE 

PARENT  MAIN 

SEGTYPE  U 

FORM  DEFAULTED-AS 


CONTA I  NS 

I  TEM 

PROGRAM.YEAR 

I  TEM 

AUTH.YR 

I  TEM 

AUS 

I  TEM 

CAPY 

I  TEM 

APS 

ITEM 

PEYR 

ITEM 

BUDGET.ACT 

I  TEM 

MPRO.RCD.DT 

ITEM 

MPRO.APD.BY 

I  TEM 

MPRO  _  A  PD  _DT 

I  TEM 

SUB 

1  TEM 

UM 

I  TEM 

REMARK. 2 

I  TEM 

REMARK. 4 

I  TEM 

PROG. AMT 

I  TEM 

DATEPA 

I  TEM 

Al'TH.AMT 

I  TEM 

APPROP.AMT 

1  TEM 

PUB.LAW.CD 

1  TEM 

CON.D 1 R  _ AMT 

1  TEM 

CON.STD 

I  TEM 

REPLACE. CODE 

I  TEM 

2  8  0  7  C 

1  TEM 

2  8  0  7  0 

1  TEM 

2  8  0  7  RQ 

I  TEM 

DES.DIR.AMT 

1  TEM 

DES.DI  S  T  R .CD 

1  TEM 

EX  EC .STATUS 

1  TEM 

CMD.PN 

1  TEM 

AR  6  2  6  .CODE 

l  TEM 

SORT  1 

1  TEM 

S  ORT  2 

1  TEM 

ZCP.X  1 

I  TEM 

ZCP.X 2 

1  TEM 

zcr.x 3 

1  TEM 

ZCP.X 4 

1  TEM 

F  N  1 

I  TEM 

F  N  2 

I  TEM 

F  N  3 

I  TEM 

S  PN 

I  TEM 

PAGE  1  3  9  1 

ITEM 

1  NDX  PAGE 

1  TEM 

S  FT 

30 


ITEM  REMARKA 
ITEM  REMARKB 
ITEM  REMARKC 
ITEM  PC  A 

ITEM  CACTI  ON 
ITEM  DRCN 
ITEM  DRCN  2 
ITEM  CHGSW 
ITEM  ZCPP.F I LLER 

REPORT  OF  ITEM  PROGRAM. Y  EAR 

EDITION  1  ENCODED  BY  MASTER  AT  1023.21  ON  2  7  NOV  1014 

ALIAS 
A  PYR 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  PROGRAM.YEAR 
DEFAULTED- AS 
CHARACTERS  2 
REPORT  OF  ITEM  AUTH.YR 

EDITION  1  ENCODED  BY  MASTER  AT  10.23.22  ON  27  NOV  1924 

ALIAS 
AUYR 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  AUTH.YR 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OF  ITEM  AUS 

EDITION  1  ENCODED  BY  MASTER  AT  10.23  23  ON  27  NOV  1984 

ALIAS 

AUTH.SUP 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  AUS 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OF  STEM  CAPY 

EDITION  1  ENCODED  BY  MASTER  AT  19  2324  ON  27  NOV  1984 

ALIAS 

CONG.APRV.YR 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  CAPY 
DEFAULTED- AS 
CHARACTERS  2 
REPORT  OF  ITEM  APS 

EDITION  1  ENCODED  BY  MASTER  AT  192324  ON  27  NOV  1984 

ALIAS 

APPROP.SUP 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

I TEM  APS 

DEFAULTED- AS 
CHARACTERS  2 
REPORT  OF  ITEM  PEYR 

EDITION  1  ENCODED  BY  MASTER  AT  19  23  26  ON  27  NOV  1904 

ALIAS 

PROG. EX  EC. YR 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  PEYR 

DEFAULTED  -  A  S 
CHARACTERS  2 

RETORT  OF  ITEM  BUDGET. ACT 

EDITION  1  ENCODED  BY  MASTER  AT  19  23  26  ON  27  NOV  1984 

ALIAS 
BA 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  BUDGET .ACT 

DEFAULTED- AS 

CHARACTERS  1 3 

REPORT  OF  ITEM  MPRO.RCD.DT 

EDITION  1  ENCODED  BY  MASTER  AT  19  23  27  ON  27  NOV  1984 

ALIAS 

MPRO.DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  MPRO.RCD.DT 

DEFAULTED  -  AS 

NUMER I C -  CHARACTER  6 


ITEM  AUTH.AMT 
DEFAULTED-  AS 

NUMERIC-CHARACTER  9 
REPORT  OF  ITEM  APPROP.AMT 

EDITION  1  ENCODED  BY  MASTER  AT  1  9.2  3.  3  6  ON  2  7  NOV  109  4 
AL  I  AS 
APPA 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  APPROP.AMT 
DEFAULTED  -  AS 

NUMER 1 C - CHARACTER  • 

REPORT  OF  ITEM  PUB.LAW.CD 

EDITION  1  ENCODED  BY  MASTER  AT  10.23.36  ON  27  NOV  1904 
ALIAS 
P  LCD 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PUB_LAW.CD 
DEFAULTED  -  AS 
CHARACTERS  4 

REPORT  OF  ITEM  CON_D I R.AMT 

EDITION  1  ENCODED  BY  MASTER  AT  10.23.30  ON  27  NOV  1004 
ALIAS 

CON. AMT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  CON  .D 1 R  _ AMT 
DEFAULTED  -  AS 

PACKED-  DEC  I MAL  13  .2 
REPORT  OF  ITEM  CON. STD 

EDITION  1  ENCODED  BY  MASTER  AT  10.23.37  ON  27  NOV  1004 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  CON. STD 
DEFAULTED- AS 
CHARACTERS  ) 

REPORT  OF  ITEM  REPLACE.CODE 

EDITION  1  ENCODED  BY  MASTER  AT  10  23  38  ON  27  NOV  1084 

ALIAS 
RC 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  R  EPLACE.CODE 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  ITEM  2807C 

EDITION  1  ENCODED  BY  MASTER  AT  10.23  30  ON  27  NOV  1984 
ALIAS 

2  8  0  7  .CONG  _  DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  2  8  0  7C 
DEFAULTED  -  A  S 

NUMER I C -  CHARACTER  0 
REPORT  OF  ITEM  28070 

EDITION  1  ENCODED  BY  MASTER  AT  10  23  30  ON  27  NOV  1084 
ALIAS 

2  8  0  7  .OS  D .DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  20070 
DEFAULTED  -  AS 

NUMER  I C -  CHARACTER  8 
REPORT  OF  ITEM  2907RQ 

EDITION  1  ENCODED  BY  MASTER  AT  102340  ON  27  NOV  1904 
ALIAS 

2  0  0  7  .RQ 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  2807Rg 
DEFAULTED  -  A  S 
CHARACTERS  I 

REPORT  OF  ITEM  DES.DIR.A  MT 

EDITION  l  ENCODED  BY  MASTER  AT  10  23  41  ON  27  NOV  1004 
ALIAS 

D  E  S  .  A  MT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  DES.DIR.A  MT 
CONTA I  NS  NO  ENTR I  ES 


33 


m 


REPORT  OF  ITEM  DES.DISTR.CD 

EDITION  1  ENCODED  BY  MASTER  AT  19 
THIS  MEMBER  IS  DIRECTLY  REFERRED 
THIS  MEMBER  CONTAINS  0  DIRECT  REF 
ITEM  DES  _  D I  STR.CD 
DEFAULTED  -  AS 
CHARACTERS  2 

REPORT  OF  ITEM  EXEC.STATUS 

EDITION  1  ENCODED  BY  MASTER  AT  12 
ALIAS 
EXSTS 

THIS  MEMBER  IS  DIRECTLY  REFERRED 
THIS  MEMBER  COSTA  I  NS  0  DIRECT  REF 
ITEM  EX  EC .STATUS 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  ITEM  CMD.PN 

EDITION  1  ENCODED  BY  MASTER  AT  19 
ALIAS 
CPN 

THIS  MEMBER  IS  DIRECTLY  REFERRED 
THIS  MEMBER  CONTAINS  0  DIRECT  REF 
I TEM  CMD.PN 
DEFAULTED  -  AS 

CHARACTERS  IS 
REPORT  OF  ITEM  AlUSfi.CODK 

EDITION  1  ENCODED  II Y  MASTER  AT  10 
ALIAS 

CMTY .CD 

THIS  MEMBER  IS  DIRECTLY  REFERRED 
THIS  MEMBER  CONTAINS  0  DIRECT  REF 
ITEM  AR  5  2  5  .CODE 
DEFAULTED- AS 
CHARACTERS  6 
REPORT  OF  ITEM  SORT1 

EDITION  1  ENCODED  BY  MASTER  AT  10 
ALIAS 
S  I 

THIS  MEMBER  IS  DIRECTLY  REFERRED 
THIS  MEMBER  CONTAINS  0  DIRECT  REF 
ITEM  SORT1 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  ITEM  SORT  2 

EDITION  I  ENCODED  BY  MASTER  AT  10 
ALIAS 
S  2 

THIS  MEMBER  IS  DIRECTLY  REFERRED 


23.42  ON  27 
TO  ONCE 
ERENCES 


NOV  1994 


.2342  ON  27  NOV  1994 


TO  ONCE 
ERENCES 


2343  ON  27  NOV  1994 


TO  ONCE 
ER  ENCES 


2  3  4  4  ON  2  7  NOV  19  9  4 


TO  ONCE 
ERENCES 


23  46  ON  27  NOV  1994 


TO  ONCE 
ERENCES 


23.46  ON  27  NOV  1984 


THIS  MEMBER  CONTAINS  0  DIRECT  R  El 
ITEM  S  OR  T  2 
DEFAULTED • AS 
CHARACTERS  3 
REPORT  OP  ITEM  ZCP.Xl 

EDITION  I  ENCODED  BY  MASTER  AT  II 
ALIAS 
ZX  1 

THIS  MEMBER  IS  DIRECTLY  REFERRED 


DIRECT  REF 


TO  ONCE 
ERENCES 


MASTER  AT 


2349  ON  2 7  NOV  1994 


THIS  MEMBER  CONTAINS  0  DIRECT  REF 
ITEM  ZCP.Xl 
DEFAULTED  -  A  S 
CHARACTERS  1 
REPORT  OF  ITEM  ZCP.X2 

EDITION  1  ENCODED  BY  MASTER  AT  19 
ALIAS 
ZX  2 

THIS  MEMBER  IS  DIRECTLY  REFERRED 
THIS  MEMBER  CONTAINS  0  DIRECT  REF 
ITEM  ZCP.X2 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  ITEM  ZCP.X3 

EDITION  1  ENCODED  BY  MASTER  AT  19 
ALIAS 
ZX  3 

THIS  MEMBER  IS  DIRECTLY  REFERRED 
THIS  MEMBER  CONTA  I  NS  0  DIRECT  REF 
ITEM  ZCP.X 3 
DEFAULTED  -  A  S 
CHARACTERS  2 
REPORT  OF  ITEM  ZCP.X4 

EDITION  1  ENCODED  BY  MASTER  AT  19 


TO  ONCE 
ERENCES 


2  3  4  7  ON  2  7  NOV  19  9  4 


TO  ONCE 
ERENCES 


2  3  4  8  ON  2  7  NOV  19  8  4 


TO  ONCE 
ERENCES 


23  49  ON  27  NOV  1984 
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ALIAS 
ZX  4 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZCP.X4 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  ITEM  FNl 

EDITION  1  ENCODED  BY  MASTER  AT  19  23  49  ON  27  NOV  1984 
ALIAS 

FOOTNOTE  1 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
I TEM  FN 1 
DEFAULTED  -  AS 
CHARACTERS  l 
REPORT  OF  ITEM  F  N  2 

EDITION  1  ENCODED  BY  MASTER  AT  19  23  60  ON  27  NOV  1984 
ALIAS 
EA 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  F  N  2 
DEFAULTED  -  A  S 
CHARACTERS  1 
REPORT  OF  ITEM  F  N  3 

EDITION  1  ENCODED  BY  MASTER  AT  19  23  61  ON  27  NOV  1984 
ALIAS 

FOOT  NOTE  3 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  FN3 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  ITEM  SPN 

EDITION  1  ENCODED  BY  MASTER  AT  19  23  62  ON  27  NOV  1984 
AL  I  AS 

SHORT  PN 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SPN 
DEFAULTED  -  AS 
CHARACTERS  8 
REPORT  OF  ITEM  PAGE1391 

EDITION  I  ENCODED  BY  MASTER  AT  192362  ON  27  NOV  1984 
ALIAS 

GR  BK .13  9  1  PC 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  O  DIRECT  REFERENCES 
I TEM  PAGE  13  9  1 
DEFAULTED- AS 
CHARACTERS  4 
REPORT  OF  ITEM  I NDX  PAGE 

EDITION  1  ENCODED  BY  MASTER  AT  19  23  63  ON  27  NOV  1984 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  1 NDX  PAGE 
DEFAULTED  -  AS 
CHARACTERS  4 
REPORT  OF  ITEM  SFT 

EDITION  1  ENCODED  BY  MASTER  AT  1923  64  ON  27  NOV  1984 
ALIAS 

SUBFUNDTY  PE 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SFT 
DEFAULTED  -  A  S 
CHARACTERS  2 
REPORT  OF  ITEM  REMARKA 

EDITION  I  ENCODED  BY  MASTER  AT  19  23  66  ON  27  NOV  1984 
ALIAS 
RMKA 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  REMARKA 
DEFAULTED  -  AS 

CHARACTERS  10 
REPORT  OF  ITEM  REMARKB 

EDITION  1  ENCODED  BY  MASTER  AT  19  23  66  ON  27  NOV  1984 
ALIAS 
R  MK  B 
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23.68  ON  27  NOV  1084 


THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  REMARKB 
DEFAULTED • AS 

CHARACTERS  JO 
REPORT  OF  ITEM  REMARKC 

EDITION  I  ENCODED  BY  MASTER  AT  10.23  66  ON  27 

ALIAS 
RMKC 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  REMARKC 
DEFAULTED  -  AS 

CHARACTERS  10 
REPORT  OF  ITEM  PCA 

EDITION  1  ENCODED  BY  MASTER  AT  10  23  67  ON  27 
ALIAS 

PREVCONGAUTH 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PCA 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OF  ITEM  CACT I  ON 

EDITION  1  ENCODED  BY  MASTER  AT  10  23.68  ON  27 
ALIAS 

CONGACT I  ON 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  CACT I  ON 
DEFAULTED  -  AS 

CHARACTERS  00 
REPORT  OF  ITEM  DR  C  N 

EDITION  l  ENCODED  BY  MASTER  AT  1023  68  ON  27 
ALIAS 

DES  _CN_  NO  1 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  DRCN 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  ITEM  DRCN  2 

EDITION  1  ENCODED  BY  MASTER  AT  10  2360  ON  27 
ALIAS 

DES .CN.N02 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  DRCN  2 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  ITEM  CHGSW 

EDITION  1  ENCODED  BY  MASTER  AT  10  24  00  ON  27 

ALIAS 

CHANGE  _  S  W 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  CHGSW 
DEFAULTED  *  AS 
CHARACTERS  0 

REPORT  OF  ITEM  ZCPP.F I LLER 

EDITION  I  ENCODED  BY  MASTER  AT  10  24  01  ON  27 

ALIAS 
FILL2 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZCPP.F  I  LL  ER 
DEFAULTED • AS 
CHARACTERS  1 
REPORT  OF  FILE  ZCP2FILE 

EDITION  1  ENCODED  BY  MASTER  AT  10  24  18  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  16  DIRECT  REFERENCES 

FILE  ZCP2FILE 

PARENT  MAIN 

SEGTYPE  U 

FORM  DEFAULTED- AS 

CONTA  I  NS 

ITEM  ZRD 
ITEM  CURR 1  3  0  1 .DT 
I TEM  13  0  1  _DT _D I  ST 
I TEM  1301 .OK 


NOV  1084 


NOV  1084 


NOV  1084 


NOV  1084 


00  ON  27  NOV  1084 


IRECTLY  REFERRED  TO  ONCE 
UNS  0  DIRECT  REFERENCES 


NOV  1084 


NOV  1084 


i 


ITEM  FORMNO 
ITEM  PR  OC  PA 
ITEM  CONTROL .CODE 
ITEM  PROCFY 
ITEM  COMPONENT 
ITEM  ZCP2.FI LLER 
ITEM  MO  B  PR  1 
ITEM  MO B  _  D  I  ST 
ITEM  LSD 
ITEM  ROD 
ITEM  F I LL 1 1 
REPORT  OF  ITEM  ZRD 

EDITION  1  ENCODED  BY  MASTER  AT  1024  07  ON  27  NOV  1994 

ALIAS 

ZCP2 .REF _DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZRD 
DEFAULTED  -  AS 

NUMER I C- CHARACTER  6 
REPORT  OF  ITEM  CURR 1 3 9 1 _DT 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  07  ON  27  NOV  ] 914 

ALIAS 

1391 _DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERPNCES 
I TEM  CURR 1391 _DT 
DEFAULTED • AS 

NUMER I  C - CHARACTER  0 
REPORT  OF  ITEM  139I.DT.DIST 

EDITION  1  ENCODED  BY  MASTER  AT  19  2408  ON  27  NOV  1984 

ALIAS 

I391.DIST 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
I  TEM  13  9  1  .DT.D 1  ST 
DEFAULTED  -  AS 

NUMER I C - CHARACTER  8 
REPORT  OF  ITEM  1391.0K 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  09  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTA I  NS  0  DIRECT  REFERENCES 
ITEM  1391.0K 
DEFAULTED- AS 
CHARACTERS  1 
REPORT  OF  ITEM  FORMNO 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  09  ON  27  NOV  1984 

ALIAS 
F  NO 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  FORMNO 
DEFAULTED  -  A  S 
CHARACTERS  7 
REPORT  OF  ITEM  PROCPA 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  10  ON  27  NOV  1994 

ALIAS 

PROC  ES  S .COST 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PROCPA 
DEFAULTED  -  A  S 

NUMER I C • CHARACT ER  8 
REPORT  OF  ITEM  CONTROL.CODE 

EDITION  1  ENCODED  BY  MASTER  AT  19  24.11  ON  27  NOV  1994 

ALIAS 
CNTRC 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  CONTROL .COD E 
DEFAULTED  -  AS 
CHARACTERS  l 
REPORT  OF  ITEM  PROCFY 

EDITION  I  ENCODED  BY  MASTER  AT  19  24.12  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PROCFY 
DEFAULTED- AS 
CHARACTERS  4 

REPORT  OF  ITEM  COMPONENT 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  12  ON  27  NOV  1994 


37 


-V  VliA 


ALIAS 

COMPT 

THIS  MEMBF.R  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  COMPONENT 
DEFAULTED  -  AS 
CHARACTERS  4 

REPORT  OF  ITEM  ZCP2  _F  I  LL  ER 

EDITION  I  ENCODED  BY  MASTER  AT  19  24  13  ON  27  NOV  1984 

ALIAS 
F  I  L  L  3 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

I TEM  ZCP2 .FILLER 
DEFAULTED- AS 
CHARACTERS  3 
REPORT  OF  ITEM  MOBPRI 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  14  ON  27  NOV  1984 

ALIAS 

DA.PR I 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  MOBPRI 
DEFAULTED- AS 
CHARACTERS  6 
REPORT  OF  ITEM  MOB.DIST 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  14  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

I TEM  MOB.D I  ST 
DEFAULTED- AS 
CHARACTERS  2 
REPORT  OF  ITEM  LSD 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  IS  ON  27  NOV  1984 

ALIAS 

LATE. ST.DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  LSD 
DEFAULTED- AS 
CHARACTERS  6 
REPORT  OF  ITEM  ROD 

EDITION  1  ENCODED  BY  MASTER  AT  19.24  16  ON  27  NOV  1984 

ALIAS 

RQD.OCP.DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  ROD 
DEFAULTED- AS 
CHARACTERS  S 
REPORT  OF  ITEM  FILL  I  I 

EDITION  1  ENCODED  BY  MASTER  AT  19  24.17  ON  27  NOV  1984 

ALIAS 

MOB.FILLER 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  F I LL 1 1 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OF  FILE  ZCP3FILE 

EDITION  I  ENCODED  BY  MASTER  AT  192433  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  18  DIRECT  REFERENCES 

FILE  ZCP3  F  I  LE 

PARENT  MAIN 

SEGTYPE  U 

FORM  DEFAULTED-AS 

CONTA I  NS 

ITEM  LONG.DESC 
ITEM  AUTH.REQ 
ITEM  APPR.REQ 
ITEM  AUTII.CODE 
ITEM  A  P  PR .COD  E 
ITEM  OSD. NOT  E 
ITEM  ARMY.REQ 
ITEM  SASCAUTH 
ITEM  MASCAUTH 
ITEM  SAC.APPR 


I  TEM 
I  TEM 
I  TEM 


HAC.APPR 
CONGAUTH 
CONFA  PPR 
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THIS  MRMRRR  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HASCAUTH 
DEFAULTED  -  AS 

NUMER  1  C - CHARACTER  8 
REPORT  OF  ITEM  SAC.APPR 

EDITION  1  ENCODED  BY  MASTER  AT  10  24.27  ON  27 

ALIAS 
S  APPR 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SAC.APPR 
DEFAULTED  -  AS 

NUMER I C - CHARACTER  8 
REPORT  OP  ITEM  HAC.APPR 

EDITION  1  ENCODED  BY  MASTER  AT  10.24.27  ON  27 
AL  IAS 
HA  P  PR 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HAC.APPR 
DEFAULTED  -  AS 

NUMER I C- CHARACTER  8 
REPORT  OF  ITEM  CONGAUTH 

EDITION  1  ENCODED  BY  MASTER  AT  10.24.28  ON  27 
ALIAS 
CAUTH 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  CONGAUTH 
DEFAULTED  -  AS 

NUMER I C - CHARACTER  8 
REPORT  OF  ITEM  CONFAPPR 

EDITION  1  ENCODED  BY  MASTER  AT  10.24.20  ON  27 


NOV  1084 


NOV  1084 


NOV  1084 


REPORT  OF  ITEM  CONFAPPR 

EDITION  1  ENCODED  BY  MASTER  AT  10.24.20  ON  27 

ALIAS 
CAPPR 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  CONFAPPR 
DEFAULTED  -  AS 

NUMER I C • CHARACTER  8 
REPORT  OF  ITEM  AMT  1 

EDITION  1  ENCODED  BY  MASTER  AT  10  24.30  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  AMTl 
DEFAULTED  -  AS 

NUMER I C - CHARACTER  8 
REPORT  OF  ITEM  AMT  2 

EDITION  1  ENCODED  BY  MASTER  AT  10  24.30  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  AMT  2 
DEFAULTED ♦ AS 

NUMERIC-CHARACTER  8 
REPORT  OF  ITEM  AMT 3 

EDITION  1  ENCODED  BY  MASTER  AT  10  24.31  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  AMT  3 
DEFAULTED  *  A  S 

NUMER  I  C  -  CIIAR  ACTER  8 
REPORT  OF  ITEM  A MT 4 

EDITION  I  ENCODED  BY  MASTER  AT  102433  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  AMT  4 
DEFAULTED  -  AS 

NUMER  I C -  CHARACTER  8 
REPORT  Or  ITEM  ZCP3. FILLER 

EDITION  I  ENCODED  BY  MASTER  AT  10  24  32  ON  27 

A  I  I  A  S 
PiLI.4 

THIS  MFMBPR  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MFMBPR  CONTAINS  0  DIRECT  REFERENCES 

ITEM  ZCP1.PII.LPR 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  or  FILE  A  MP  F.R  S  l 

EDITION  |  ENCODED  BY  MASTER  AT  10.24.41  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
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THIS  MEMBER  CONTAINS  6  DIRECT  REFERENCES 

FILE  AMPERS 1 

PARENT  MA  I  N 

SEGTYPE  U 

FORM  DEFAULTED- AS 

CONTA 1  NS 

ITEM  D  E  S  _  P  ERC  ENT 
ITEM  C WE  _ AMT 
ITEM  CONCOM.DT 
ITEM  DES.COMP.DT 
ITEM  DES.ST.DT 
ITEM  AMPER.FILLER 
REPORT  OF  ITEM  DES .PERCENT 

EDITION  2  ENCODED  BY  MASTER  AT  H  13  09  ON  06  DEC  1084 


AL  I  AS 
DES 

CATALOGUED  AS 
PR OCR  ESS 
DESIGN 
COMPL  ET I  ON 
PERCENT 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  DES. PERCENT 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  ITEM  CWE.AMT 

EDITION  2  ENCODED  BY  MASTER  AT  14  12  26  ON  06  DEC  1984 

ALIAS 
C  WE 

CATALOGUED  AS 
CURRENT 
EST I  MATE 
AMOUNT 
PROJECT 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  CWE.AMT 
DEFAULTED  -  AS 

NUMER I C -  CHARACTER  8 
REPORT  OF  ITEM  CONCOM.DT 

EDITION  1  ENCODED  BY  MASTER  AT  10  24  38  ON  27  NOV  1084 

ALIAS 

CONCEPT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  CONCOM.DT 
DEFAULTED  -  AS 

NUMER  I C - CHARACTER  6 
REPORT  OF  ITEM  DES.COMP.DT 

EDITION  2  ENCODED  BY  MASTER  AT  14  14  60  ON  06  DEC  1084 

CATALOGUED  AS 
DES I GN 
COMPLET I  ON 
DATE 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  DES.COMP.DT 
DEFAULTED  -  AS 

NUMERIC-CHARACTER  0 


REPORT  OF  ITEM  DES .ST .DT 

EDITION  2  ENCODED  BY  MASTER  AT  141346  ON  06  DEC  1084 
ALIAS 

DES . SD 

CATALOGUED  AS 
DES ION 
START 
DATE 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  DES .ST .DT 
DEFAULTED- AS 

NUMERIC-CHARACTER  6 
REPORT  OF  ITEM  AMPER.FILLER 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  40  ON  27  NOV  1984 

ALIAS 
F  I  L  L  6 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  AMPER.FILLER 
DEFAULTED  AS 
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CHARACTERS  1 
REPORT  OF  FILE  ACEFILE 

EDITION  I  ENCODED  BY  MASTER  AT  19.26.08  ON  27  NOV  1984 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

this  Member  contains  28  direct  references 
file  ACEP 1 LE 
PARENT  main 
segtype  u 

FORM  DEFAULTED-AS 
CONTA I  NS 

ITEM  CRRC 
ITEM  LEVEL 
ITEM  ACE. PA 
ITEM  PA .DATE 
ITEM  PROP 
ITEM  REMARK.l 
ITEM  ACEWORK1 
ITEM  ACEWORK2 
ITEM  ACEWORK  3 
ITEM  ACEPRB.PR I 
ITEM  ZB 
ITEM  CRRC .DATE 
ITEM  ACE.PY 
ITEM  P Y  _  D AT  E 
ITEM  ACE.CMD.PRI 
ITEM  ACE.D _R  EL 
ITEM  ACE.DCD 
ITEM  ZDTCD1 
ITEM  ZDTCD2 
ITEM  ZDTCD4 
ITEM  ZDTCD6 
ITEM  ZDTCD0 
ITEM  ZDTCD8 
ITEM  ZDTCD9 
ITEM  PROP.PR I  OR 
ITEM  CRRC.PRIOR 
REPORT  OF  ITEM  CRRC 

EDITION  1  ENCODED  BY  MASTER  AT  19.24.43  ON  27  NOV  1984 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  o  DIRECT  REFERENCES 
ITEM  CRRC 
DEFAULTED- AS 
CHARACTERS  1 
REPORT  OF  ITEM  LEVEL 

EDITION  1  ENCODED  BY  MASTER  AT  19.24.44  ON  27  NOV  1984 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  LEVEL 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  ITEM  ACE. PA 

EDITION  1  ENCODED  BY  MASTER  AT  192444  ON  27  NOV  1984 
ALIAS 

APRO  J A 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ACE. PA 
DEFAULTED  -  AS 

NUMER  I C -  CHARACTER  8 
REPORT  OF  ITEM  PA .DATE 

EDITION  1  ENCODED  BY  MASTER  AT  19  24. 4 5  ON  27  NOV  1984 

ALIAS 

DATE. PA  _CHGE 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PA. DATE 
DEFAULTED  -  AS 

NUMER I C- CHARACTER  0 
REPORT  OF  ITEM  PROP 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  46  ON  27  NOV  1984 

ALIAS 

PROPONENT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PROP 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  ITEM  REMARK. 1 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  47  ON  27  NOV  1984 

ALIAS 

ACE. REM 
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THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
I TBM  REMARK. 1 
DEFAULTED- AS 

CHARACTERS  AO 
REPORT  OP  ITEM  ACEWORKl 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  48  ON  27  NOV  1984 
ALIAS 
AWK  1 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ACEWORKl 
DEFAULTED  -  AS 
CHARACTERS  4 
REPORT  OP  ITEM  ACEWORK2 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  49  ON  27  NOV  1984 
ALIAS 
AWK  2 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ACEWORK2 
DEFAULTED- AS 
CHARACTERS  6 
REPORT  OF  ITEM  ACEWORK3 

EDITION  l  ENCODED  BY  MASTER  AT  19  24.60  ON  27  NOV  1984 
ALIAS 
AWK  3 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ACEWORK3 
DEFAULTED  -  AS 
CHARACTERS  3 

REPORT  OF  ITEM  ACEPRB.PRI 

EDITION  1  ENCODED  BY  MASTER  AT  19  24.61  ON  27  NOV  1984 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ACEPRB.PRI 
DEFAULTED- AS 
CHARACTERS  4 
REPORT  OF  ITEM  ZB 

EDITION  1  ENCODED  BY  MASTER  AT  19.24.61  ON  27  NOV  1984 
ALIAS 

Z  ERO  _  BUDG 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZB 
DEFAULTED- AS 
CHARACTERS  2 

REPORT  OP  ITEM  CRRC.DATE 

EDITION  1  ENCODED  BY  MASTER  AT  19  24.62  ON  27  NOV  1984 
ALIAS 
CRD 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  CRRC.DATE 
DEFAULTED  -  AS 

NUMER I C -  CHARACTER  A 
REPORT  OF  ITEM  ACE.PY 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  64  ON  27  NOV  1984 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ACE.PY 
DEFAULTED- AS 
CHARACTERS  2 
REPORT  OF  ITEM  PY .DATE 

EDITION  1  ENCODED  BY  MASTER  AT  19.24  66  ON  27  NOV  1984 
AL  I  AS 

DATE. PY  _CHQ 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  P Y .DATE 
DEFAULTED  -  AS 

NUMER 1C- CHARACTER  A 
REPORT  OF  ITEM  ACE.CMD.PRI 

EDITION  1  ENCODED  BY  MASTER  AT  19  24  6A  ON  27  NOV  1984 
ALIAS 
ACMDP 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ACE.CMD.PRI 
DEFAULTED  -  AS 
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CHARACTERS  6 

REPORT  OF  ITEM  ACE.D.REL 

EDITION  1  ENCODED  BY  MASTER  AT  10  24  67  ON  27  NOV  1994 

ALIAS 
ACEDR 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ACE.D.REL 
DEFAULTED- AS 

NUMER I C - CHARACTER  fl 
REPORT  OF  ITEM  ACE.DCD 

EDITION  1  ENCODED  BY  MASTER  AT  10.24.67  ON  27  NOV  1994 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ACE.DCD 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  ITEM  ZDTCD1 

EDITION  I  ENCODED  BY  MASTER  AT  19.24.69  ON  27  NOV  1984 
ALIAS 
Z  CD  I 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZDTCDI 
DEFAULTED  -  AS 

NUMER I C *  CHARACTER  fl 
REPORT  OF  ITEM  ZDTCD2 

EDITION  1  ENCODED  BY  MASTER  AT  19.24.69  ON  27  NOV  1984 
ALIAS 
Z  CD  2 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTA I  NS  0  DIRECT  REFERENCES 
ITEM  ZDTCD2 
DEFAULTED  -  A  S 

NUMER  I C - CHARACTER  6 
REPORT  OF  ITEM  ZDTCD4 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  00  ON  27  NOV  1084 

AL  I  AS 
Z CD  4 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZDTCD4 
DEFAULTED  -  AS 

NUMER I C- CHARACTER  6 
REPORT  OF  ITEM  ZDTCD6 

EDITION  1  ENCODED  BY  MASTER  AT  19.26.01  ON  27  NOV  1984 
ALIAS 
Z  CD  6 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZDTCD6 
DEFAULTED  -  AS 

NUMER  I C - CHARACTER  6 
REPORT  OF  ITEM  ZDTCD6 

EDITION  l  ENCODED  BY  MASTER  AT  19  26  02  ON  27  NOV  1984 

ALIAS 
Z  CD  6 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZDTCD6 
DEFAULTED  -  AS 

NUMER  I C -  CHARACTER  6 
REPORT  OF  ITEM  ZDTCD8 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  02  ON  27  NOV  1984 
ALIAS 
Z CD  8 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZDTCD8 
DEFAULTED  -  A  S 

NUMER I C • CHARACTER  • 

REPORT  OF  ITEM  ZDTCD0 

EDITION  I  ENCODED  BY  MASTER  AT  10  26  03  ON  27  NOV  1984 
ALIAS 
Z  CD  0 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZDTCD0 
DEFAULTED- AS 

NUMER  I C -  CHARACTER  6 
REPORT  OF  ITEM  PROP.PRIOR 
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EDITION  1  ENCODED  BY  MASTER  AT  19.2S.04  ON  27  NOV  1094 
ALIAS 
P.PR  I 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REPERENCES 
ITEM  PROP.PRIOR 
DEFAULTED  -  AS 
CHARACTERS  4 

REPORT  OP  ITEM  CRRC. PRIOR 

EDITION  1  ENCODED  BY  MASTER  AT  SO  25  OS  ON  27  NOV  I9S4 

ALIAS 

CRRC.PR I 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REPERENCES 
ITEM  CR RC  _  PR  1  OR 
DEFAULTED- AS 
CHARACTERS  4 
REPORT  OP  PILE  MPCAPILE 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  31  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  26  DIRECT  REPERENCES 

PILE  MPCAP I LE 

PARENT  MAIN 

SEGTYPE  U 

FORM  DEPAULTED-AS 

CONTA 1  NS 

ITEM  EX  ..AWARD  .  DT 
ITEM  EX  EC .COD E 
ITEM  MPCA.REM 
ITEM  R  EMA  RK_5A 
ITEM  REMARK,® 

ITEM  CDTCDI 
ITEM  CDTCD2 
ITEM  CDTCD4 
ITEM  CDTCD6 
ITEM  CDTCD® 

ITEM  CDTCDI 

ITEM  CDTCD  0 

ITEM  B1DOD 

ITEM  NOBID 

ITEM  GOVT  _  ES  T 

ITEM  LB  ID 

ITEM  HBID 

ITEM  DIRCD 

ITEM  HL.DBS 

ITEM  MPC , DCD 

ITEM  CONS  _COMP_DT 

ITEM  BOD 

I TEM  DES  _ D I R ,DT 

ITEM  FORECAST 

ITEM  AWD.CWE 

REPORT  OP  ITEM  E  X  _  A  WA  RD.DT 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  00  ON  27  NOV  1084 

ALIAS 

CONST. AW, DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REPERENCES 
ITEM  EX  _  A  WA  RD.DT 
DEFAULTED- AS 

NUMER I C - CHARACTER  ® 

REPORT  OP  ITEM  EXEC. CODE 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  10  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  EXEC. CODE 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OP  ITEM  MPCA.REM 

EDITION  1  ENCODED  BY  MASTER  AT  10.26  11  ON  27  NOV  1084 

ALIAS 

REMARK . 6 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MPCA.REM 
DBF AULT ED  -  A  S 

CHARACTERS  30 
REPORT  OF  ITEM  REMARK. bA 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  12  ON  27  NOV  1084 

ALIAS 
RMK  6 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
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THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  REMARK.SA 
DEFAULTED- AS 

CHARACTERS  30 
REPORT  OF  ITEM  REMARK.* 

EDITION  l  ENCODED  BY  MASTER  AT  19  26  12  ON  27  NOV  1994 

AL  I  AS 
RMK  6 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  REMARK.* 

DEFAULTED- AS 

CHARACTERS  *0 
REPORT  OF  ITEM  CDTCD 1 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  13  ON  27  NOV  1994 

ALIAS 
CD  1 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

I TEM  CDTCD 1 
DEFAULTED  -  AS 

NUMER I C -  CHARACTER  * 

REPORT  OF  ITEM  CDTCD  2 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  14  ON  27  NOV  1994 

ALIAS 
CD  2 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  CDTCD  2 
DEFAULTED  -  A  S 

NUMER I C- CHARACTER  • 

REPORT  OF  ITEM  CDTCD 4 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  16  ON  27  NOV  1994 

ALIAS 
CD  4 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  CDTCD 4 
DEFAULTED  -  AS 

NUMER I C - CHAR ACTER  • 

REPORT  OF  ITEM  CDTCD  6 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  16  ON  27  NOV  1994 

ALIAS 
CD  6 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  CDTCD* 

DEFAULTED  -  AS 

NUMER I C - CHARACTER  • 

REPORT  OF  ITEM  CDTCD* 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  17  ON  27  NOV  1994 

ALIAS 

CD* 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  CDTCD* 

DEFAULTED  -  AS 

NUMER I C- CHARACTER  • 

REPORT  OF  ITEM  CDTCD  9 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  19  ON  27  NOV  1994 

ALIAS 
CD  9 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  CDTCD  9 
DEFAULTED • AS 

NUMER I C - CHARACTER  6 
REPORT  OF  ITEM  CDTCD  9 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  18  ON  27  NOV  19*4 

ALIAS 
CD  9 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
1  TEM  CDTCD  9 
DEFAULTED  -  A  S 

NUMER I C - CHAR ACTER  * 

REPORT  OF  ITEM  BIDOD 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  19  ON  27  NOV  19*4 

ALIAS 

B  I  D_.OPEN.DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 


THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  B1DOD 
DEFAULTED  -  AS 

NUMER I C- CHARACTER  6 
REPORT  OF  ITEM  NOBID 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  20  ON  27  NOV  1004 

AL  IAS 

NO.BI DDERS 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  NOBID 
DEFAULTED- AS 

NUMER I C - CHARACTER  4 
REPORT  OF  ITEM  GOVT.EST 

EDITION  I  ENCODED  BY  MASTER  AT  10  26  21  ON  27  NOV  1004 

ALIAS 
CEST 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  COV  T  _  E  S  T 
DEFAULTED- AS 

NUMER I C- CHARACTER  0 
REPORT  OF  ITEM  LBID 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  22  ON  27  NOV  1084 

ALIAS 

LOW.  B  I  D 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  LBID 

DEFAULTED  -  AS 

NUMER I C- CHARACTER  8 
REPORT  OF  ITEM  HBID 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  23  ON  27  NOV  1084 

ALIAS 

HIGH.BID 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HBID 
DEFAULTED- AS 

NUMER I C- CHARACTER  8 
REPORT  OF  ITEM  D I RCD 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  23  ON  27  NOV  1084 

ALIAS 

ZCPP.DCD 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  D I RCD 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  ITEM  HL.DES 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  24  ON  27  NOV  1084 

ALIAS 

IH.DES 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HL.DES 

DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  ITEM  MrC.DCD 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  26  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MPC.DCD 

DEFAULTED • AS 
CHARACTERS  1 

REPORT  OF  ITEM  CONS .COMP. DT 

EDITION  1  ENCODED  BY  MASTER  AT  10.26  26  ON  27  NOV  1084 

ALIAS 
CNCND 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  CONS  _COMP.DT 

DEFAULTED  -  AS 

NUMER  I C -  CHARACTER  6 
REPORT  OF  ITEM  BOD 

EDITION  I  ENCODED  BY  MASTER  AT  10  26  27  ON  27  NOV  1004 

ALIAS 

BEN.OCC.DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  BOD 
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DEFAULTED  -  AS 

NUMER ! C -  CHARACTER  6 
REPORT  OP  ITEM  DES.DIR.DT 

EDITION  1  ENCODED  BY  MASTER  AT  10.2S.28  ON  27  NOV  1984 

ALIAS 

DES  _ DR 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  DES.DI R  _  DT 
DEFAULTED  -  AS 

NUMER I C- CHARACTER  6 
REPORT  OF  ITEM  FORECAST 

EDITION  1  ENCODED  BY  MASTER  AT  19.25.20  ON  27  NOV  1994 

ALIAS 

FCST.AWD _DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  FORECAST 
DEFAULTED  -  AS 

NUMER I C - CHARACTER  6 
REPORT  OF  ITEM  AWD.CWE 

EDITION  1  ENCODED  BY  MASTER  AT  19.26  30  ON  27  NOV  1984 

ALIAS 

A  WD  _  C  WE  _  A  MT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  AWD.CWE 
DEFAULTED- AS 

NUMER I C - CHARACTER  8 
REPORT  OF  FILE  MPESFILE 

EDITION  1  ENCODED  BY  MASTER  AT  19.25.47  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  It  DIRECT  REFERENCES 

FILE  MPES  FILE 

PARENT  MAIN 

SEGTYPE  U 

FORM  DEFAULTED- AS 

CONTA I  NS 

ITEM  EST.COST 

ITEM  SUP  ER  _  ADM I  N 

ITEM  PER.CONT 

ITEM  EST.DT 

ITEM  PER.SA 

ITEM  PRO  J .COST.DT 

ITEM  PRO  J .COST 

ITEM  PRO  J .COST. CD 

ITEM  SOLAR 

ITEM  PDB.DT 

ITEM  PDB.RDQ 

ITEM  CAT. E. EQ 

ITEM  CONT 

ITEM  PER.DSGN 

ITEM  MPES .COMMENT 

ITEM  MPES. FILLER 

REPORT  OF  ITEM  EST.COST 

EDITION  1  ENCODED  BY  MASTER  AT  19.25.34  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  EST.COST 

DEFAULTED  -  AS 

NUMER  I C -  CHARACTER  8 
REPORT  OF  ITEM  SUPER .ADMIN 

EDITION  1  ENCODED  BY  MASTER  AT  19.25  36  ON  27  NOV  1084 

ALIAS 
S  A 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUPER. ADMIN 

DEFAULTED- AS 

NUMER I C -  CHARACTER  8 
REPORT  OF  ITEM  PER.CONT 

EDITION  1  ENCODED  BY  MASTER  AT  1926  37  ON  27  NOV  1984 

ALIAS 
PCONT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PER.CONT 

DEFAULTED  -  AS 

PACKED-DECIMAL  41 
REPORT  OF  ITEM  EST.DT 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  37  ON  27  NOV  1984 


THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  EST.DT 
DEFAULTED  -  AS 

NUMERIC-CHARACTER  6 
REPORT  OF  ITEM  PER.SA 

EDITION  l  ENCODED  BY  MASTER  AT  19  26  31  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PER  _  S  A 
DEFAULTED  -  AS 

PACKED- DEC  I MAL  3  1 

REPORT  OF  ITEM  PROJ.COST.DT 

EDITION  |  ENCODED  BY  MASTER  AT  19  26.39  ON  27  NOV  2984 

ALIAS 
PCDT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PROJ  _COST_DT 
DEFAULTED- AS 

NUMER I C - CHARACTER  6 
REPORT  OF  ITEM  PROJ.COST 

EDITION  1  ENCODED  BY  MASTER  AT  19.26  40  ON  27  NOV  1984 

ALIAS 
PC 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PROJ .COST 
DEFAULTED  -  AS 

NUMER I C • CHARACTER  8 
REPORT  OF  ITEM  PROJ. COST. CD 

EDITION  1  ENCODED  BY  MASTER  AT  19.26.40  ON  27  NOV  1984 
ALIAS 
PCCD 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PROJ. COST. CD 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  ITEM  SOLAR 

EDITION  I  ENCODED  BY  MASTER  AT  19  26  41  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  SOLAR 

DEFAULTED- AS 

NUMER I C - CHARACTER  8 
REPORT  OF  ITEM  PDB.DT 

EDITION  1  ENCODED  BY  MASTER  AT  192642  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  PDB.DT 

DEFAULTED  -  AS 

NUMER I C - CHARACTER  8 
REPORT  OF  ITEM  PDB.RDQ 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  43  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PDB.RDQ 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  ITEM  CAT.E.EQ 

EDITION  1  ENCODED  BY  MASTER  AT  192643  ON  27  NOV  1984 
ALIAS 
CAT  .  E 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTA  I  NS  0  DIRECT  REFERENCES 
ITEM  CAT.E.EQ 
DEFAULTED- AS 

NUMER I C-  CHARACTER  8 
REPORT  OF  ITEM  CONT 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  44  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  CONT 

DEFAULTED • AS 

NUMER  I C -  CHAR ACTER  8 
RETORT  OF  ITEM  PER.DSCN 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  46  ON  27  NOV  1984 
ALIAS 
PD  S  N 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
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THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  PER  _DSGN 
DEFAULTED  -  AS 

PACKED  -  DEC  I MA L  S  I 
REPORT  OF  ITEM  MPES  .COMMENT 

EDITION  I  ENCODED  BY  MASTER  AT  19  25  4ft  ON  27 

AL  I  AS 
MCOM 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MPES. COMMENT 
DEFAULTED  -  AS 

CHARACTERS  20 

REPORT  OF  ITEM  MPES .FILL  ER 

EDITION  1  ENCODED  BY  MASTER  AT  19  25 .47  ON  27 

ALIAS 
F  I  LL  7 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MPES.FILLER 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OF  FILE  MPENFILE 

EDITION  1  ENCODED  BY  MASTER  AT  19.25  57  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  10  DIRECT  REFERENCES 

FILE  MPENF I LE 

PARENT  MAIN 

SEGTYPE  U 

FORM  DEFAULTED- AS 

CONTA I  NS 


NOV  1994 


NOV  1994 


NOV  1994 


ITEM  REMARK.3 
ITEM  DT .R  EL .CD l 
ITEM  DT.REL.CD2 
ITEM  DEI.DT 
ITEM  MPEN.IND 
I TEM  DEI _RQ 
ITEM  MPEN.DCD 
ITEM  ENREVDT 
ITEM  ENRN 
ITEM  MPEN.F  I  LLER 
REPORT  OF  ITEM  REMARK.3 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  60  ON 

ALIAS 

MPEN.REM 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  REMARK.3 
DEFAULTED  -  AS 

CHARACTERS  «0 
REPORT  OF  ITEM  DT.REL.CDl 

EDITION  1  ENCODED  BY  MASTER  AT  19 .26  61  ON 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  DT.REL.CDl 
DEFAULTED- AS 

NUMER I C -  CHARACTER  ft 
REPORT  OF  ITEM  DT.REL.CD2 

EDITION  I  ENCODED  BY  MASTER  AT  19  26  61  ON 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  DT.REI..CD2 
DEFAULTED- AS 

NUMER  I C -  CHARACTER  ft 
REPORT  OF  ITEM  DEI.DT 

EDITION  I  ENCODED  BY  MASTER  AT  19  26  62  ON 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  DEI.DT 
DEFAULTED  -  AS 

NUMER  I C -  CHAR ACTER  ft 
REPORT  OF  ITEM  MPEN.IND 

EDITION  1  ENCODED  BY  MASTER  AT  10.26  63  ON 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
1 TEM  MPEN. I ND 
DEFAULTED  *  AS 
CHARACTERS  1 
REPORT  OF  ITEM  DEI .RQ 

EDITION  I  ENCODED  BY  MASTER  AT  19  26  63  ON 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 


NOV  1994 


NOV  1994 


NOV  1984 


NOV  1984 


NOV  1984 


NOV  1984 
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THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  DEI ,RQ 
DEFAULTED  -  AS 
CHARACTERS  I 
REPORT  OF  ITEM  MPEN.DCD 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  64  ON  2T 

ALIAS 
MPED 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MPEN.DCD 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  ITEM  P.NRF.VDT 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  56  ON  27 

ALIAS 

DT.REL .REV 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ENREVDT 
DEFAULTED  AS 

NUMER  I C -  CHAR ACT ER  6 
R  E  PORT  OF  ITEM  PNRN 

EDITION  I  ENCODED  B'i  MASTER  AT  19  26  66  ON  27 

ALIAS 

ENG. REV  .  NU  M 

THIS  MEMBER  IS  Dl  RECTI  Y  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAIN**  n  DIRECT  REFERENCES 
ITEM  PNRN 

DEFAULTED  As 

CHARACTERS  2 

REPORT  OF  ITEM  MP »'  _  P  I  I  I  PR 

EDITION  I  ENCODED  in  MASTER  AT  10  26  66  ON  27 

ALIAS 
PILI.I 

THIS  MEMBER  |s  DIRECTLY  REFERRED  T<»  ONCE 

THIS  MEMBER  CONTAIN*  0  DIRECT  REFERENCES 
ITEM  MPPN  _  P  I  l.  I  PR 
DEFAULTED  A  s 

CHARACTERS  * 

REPORT  Of  Flip  s  |f;p  |  |  p 

EDITION  1  ENCODED  BY  MA^TPR  AT  10  26  0.1  ON  27 

THIS  MEMBER  IS  DIRECT!.  V  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  6  DIRECT  REFERENCES 

FILE  SIGPILK 

PARENT  MA I N 

SEGTYPE  D 

PORM  DEFAULTED  -  AS 

CONTA  I  NS 

I  TEM  COM.COST 
ITEM  COM.STAT 
ITEM  COM.DATE 
ITEM  TELER.NO 
ITEM  S I G.F I LLER 
REPORT  OP  ITEM  COM.COST 

EDITION  I  ENCODED  BY  MASTER  AT  19  26  69  ON  27 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  COM.COST 
DEFAULTED  -  A  S 

NUMER I C- CHARACTER  9 
REPORT  OF  ITEM  COM.STAT 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  00  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  COM.STAT 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  ITEM  COM.DATE 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  01  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  COM.DATE 
DEFAULTED- AS 

NUMER  I O -  CHARACTER  6 
REPORT  OF  ITEM  TELER.NO 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  01  ON  27 

ALIAS 
T  NO 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 


I  PR 

MA  S  T  PH 


NOV  1994 


NOV  1994 


NOV  1994 


NOV  1994 


NOV  1994 


NOV  1994 


NOV  1994 


NOV  1994 


NOV  1994 


mm 


m 


-r-S' 

N 

p*  *  * 


W 

V*.V 


F  V  V 


‘  V*  vW 


LJMMJUUIJIPW 


PVT 


ITEM  TELER.NO 
DEFAULTED  -  AS 

CHARACTERS  1 0 
REPORT  OF  ITEM  SIG.FILLER 

EDITION  1  ENCODED  RY  MASTER  AT  19.20  02  ON  2  7  NOV  1084 

ALIAS 
F  I  LL  0 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  SIG.FILLER 
DEFAULTED- AS 
CHARACTERS  1 
REPORT  OF  FILE  R  E  PR  FILE 

EDITION  I  ENCODED  BY  MASTER  AT  10  26  11  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  8  DIRECT  REFERENCES 

FILE  RE PR  FILE 

PARENT  MA I N 

S  EGTY  PE  S  1 

SORT  -  KEY 

ITEM  ZCP.PA.SPN 
FORM  DEFAULT ED -AS 
CONT A  I  NS 


.  S  PN 


ZCP.PA. 

ZS.SDT 
ZS.REM 
Z  S  _  PROG. AMT 
Z  S  _ AUTH . AMT 
Z  S  .  A  PPR  _ AMT 
RE PR .P I LLER 
ITEM  ZCP.PA.SPN 
1  ENCODED  BY  MASTER 


AT 


2  8  0  6  ON  2  7  NOV  10  8  4 


I  TF.M 
I  TEM 
I  TEM 
I  TEM 
I  TEM 
I  TEM 
I  TEM 

REPORT  OF 
EDITION 
ALIAS 
Z  S  PN 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  2  TIMES 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZCP.PA.SPN 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  ITEM  ZS.SDT 

EDITION  1  ENCODED  BY  MASTER  AT  10  28  06  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  ZS.SDT 

DEFAULTED  -  AS 

CHARACTER  S  1  2 
REPORT  OF  ITEM  ZS.REM 

EDITION  I  ENCODED  BY  MASTER  AT  10  28  06  ON 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  ZS.REM 

DEFAULTED- AS 

CHARACTERS  26 

REPORT  OF  ITEM  ZS. PROG. AMT 

EDITION  1  ENCODED  BY  MASTER  AT  10  2607  ON 

ALIAS 
Z  S  PA 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  ZS  .PROG. A  MT 
DEFAULTED  -  A  S 

Nl'MER  I  C  -  CHAR  ACTER  8 

ITEM  ZS.AUTH.AMT 

1  ENCODED  BY  MASTER  AT  10  26  08  ON  27 


NOV  10  8  4 


2  7  NOV  10  8  4 


2  7  NOV  10  8  4 


REPORT  OF 
ED  I  T I  ON 
ALIAS 
Z  S  AH  A 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZS.AUTH.AMT 
DEFAULTED- AS 

NUMER I C • CHARACTER  8 
REPORT  OF  ITEM  ZS.APPR.AMT 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  08  ON 

ALIAS 
Z  S  A  PA 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ZS.APPR.AMT 
DEFAULTED  -  A  S 

NUMER  I C -  CHARACTER  8 
REPORT  OF  ITEM  REPR.F I LLER 


2  7  NOV  10  8  4 
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EDITION  1  ENCODED  BY  MASTER  AT  1#  26  10  ON  27  NOV  1084 

ALIAS 

F  I  LL  1  0 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
I TEM  REPR.F ! L L ER 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  FILE  SUBPFILE 

EDITION  I  ENCODED  BY  MASTER  AT  10  26  31  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  10  DIRECT  REFERENCES 

FILE  SUBPF 1 LE 

PARENT  MAIN 

S  ECTY  PE  S  1 

SORT  -  K  EY 

ITEM  AMPRS.SPN 
FORM  DEFAULTED- AS 
CONTA  I  NS 

I  TEM  AMPRS  .  S  P  N 

ITEM  SUBAMT 

ITEM  SUBEXYR 

ITEM  SUB.UN I T  .  ME A 

ITEM  SUBSCOPE 

ITEM  SUBITEM.DESC 

ITEM  SUB.CONTR 

ITEM  SUB.RRM 

ITEM  SCH.AWARD.DT 

ITEM  S  IJ  B  _  A  WARD  _  DT 

ITEM  SUBCAD 

ITEM  SUBBOD 

ITEM  SUBB1DOD 

ITEM  SUBNOBID 

ITEM  SUBGEST 

ITEM  SUBLBID 

ITEM  SUBIIBID 

ITEM  SAWD.CWE 

REPORT  OF  ITEM  AMPRS.SPN 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  13  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  2  TIMES 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
I  TEM  AMPRS  _S  PN 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  ITEM  SUBAMT 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  14  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  SUBAMT 

DEFAULTED  -  AS 

NUMER  I  C -  CHARACTER  8 
REPORT  OF  ITEM  SUBEXYR 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  16  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUBEXYR 
DEFAULTED  -  A  S 
CHARACTERS  4 

REPORT  OF  ITEM  SUB.UNIT.MEA 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  16  ON  27  NOV  1084 

ALIAS 

S  UB.UM 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUB.UN I T_MEA 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OF  ITEM  SUBSCOPE 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  16  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  SUBSCOPE 

DEFAULTED  -  AS 

NUMERIC-CHARACTER  7 
REPORT  OF  ITEM  SUBITEM.DESC 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  17  ON  27  NOV  1084 

ALIAS 
SDESC 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUBITEM.DESC 
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DEFAULTED  -  AS 

CHARACTERS  2  6 
REPORT  OF  ITEM  SUB.CONTR 

EDITION  1  ENCODED  BY  MASTER  AT  10.26.11  ON  27  NOV  1084 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUB.CONTR 
DEFAULTED  -  AS 
CHARACTERS  1 
REPORT  OF  ITEM  S  U  B  _R  EM 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  10  ON  27  NOV  1084 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUB.REM 
DEFAULTED  -  AS 

CHARACTERS  20 

REPORT  OF  ITEM  S  CH  _ A WARD  _DT 

EDITION  1  ENCODED  BY  MASTER  AT  10.26.20  ON  27  NOV  1084 
ALIAS 

SUBAWD  _DTSCH 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SCH_A W A  R  D  _  D  T 
D  EFAULTED -  A  S 

NUMER I C -  CHARACTER  6 
REPORT  OF  ITEM  S  U  B  _ A WARD  _DT 

EDITION  1  ENCODED  BY  MASTER  AT  19.26  21  ON  27  NOV  1084 
ALIAS 

S  U  BAWD  _  DT  ACT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUB.AWARD.DT 
DEFAULTED  -  A  S 

NUMER I C - CHARACTER  6 
REPORT  OF  ITEM  SUBCAD 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  22  ON  27  NOV  1084 

ALIAS 

SCON.AW.DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUBCAD 
DEFAULTED- AS 

NUMER I C - CHARACTER  6 
REPORT  OF  ITEM  SUBBOD 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  23  ON  27  NOV  1084 

ALIAS 

S  BEN.OCC.DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUBBOD 
DEFAULTED • AS 

NUMER I C- CHARACTER  6 
REPORT  OF  ITEM  SUBBIDOD 

EDITION  1  ENCODED  BY  MASTER  AT  19.26  24  ON  27  NOV  1084 

ALIAS 

S  B I D.OP.DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUBBIDOD 
DEFAULTED  -  A  S 

NUMER I C - CHARACTER  6 
REPORT  OF  ITEM  SUBNOBID 

EDITION  1  ENCODED  BY  MASTER  AT  10.26.26  ON  27  NOV  1084 

ALIAS 

S  NO_B I DDERS 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUBNOBID 
DEFAULTED  -  A  S 

NUMER I C -  CHARACTER  4 
REPORT  OF  ITEM  SUBCEST 

EDITION  I  ENCODED  BY  MASTER  AT  102626  ON  27  NOV  1084 

ALIAS 

SGOVT..RST 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUBGEST 
DEFAULTED  -  AS 

NUMER  I C -  CHARACTER  8 
REPORT  OF  ITEM  SUBLBID 

EDITION  1  ENCODED  BY  MASTER  AT  10  26.27  ON  27  NOV  1084 


ALIAS 

S  LOW. B I D 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUBLBID 
DEFAULTED  -  AS 

NUMER I C - CHARACTER  8 
REPORT  OF  ITEM  SUBHBID 

EDITION  1  ENCODED  BY  MASTER  AT  If . 26 . 29  ON  27  NOV  1084 
ALIAS 

SUB.H IGH.BID 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SUBHBID 
DEFAULTED- AS 

NUMER I C - CHARACTER  8 
REPORT  OF  ITEM  SAWD.CWE 

EDITION  1  ENCODED  BY  MASTER  AT  10  2f  30  ON  27  NOV  1084 
ALIAS 

SUBAWD.CWE 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  SAWD.CWE 
DEFAULTED- AS 

NUMER I C - CHAR ACTER  8 
REPORT  OF  FILE  MACOMSEG 

EDITION  1  ENCODED  BY  MASTER  AT  10  27  01  ON  27  NOV  1004 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTA  1  NS  3  0  DIRECT  REFERENCES 
FILE  MACOMS  EG 


PARENT  MAIN 
SEGTYPE  U 
FORM  DEFAULTED-AS 
CONTA I  NS 

ITEM  MTPN 
ITEM  MPDF.S 
ITEM  MFY 
ITEM  MOUS 
ITEM  MCATCD6 
ITEM  MPR 1 
ITEM  MDDSORT 
ITEM  MPE 
ITEM  MS  COPE 
ITEM  MTF 
ITEM  MM I  S  S  I  ON 
ITEM  MPA 
ITEM  MCONS 
ITEM  MRC 
ITEM  MINCODE 
ITEM  MPD I P 
l TEM  MPD I PNAME 
ITEM  MPRCD 
ITEM  MRMKI 
ITEM  MSDTG 
I TEM  MPR I SDTG 
ITEM  MPA  SDTG 
ITEM  MF  NO 
ITEM  MMOBGP 
ITEM  MMPR  I 
I TEM  MOBPR I SDTG 
ITEM  ML  S  D 
ITEM  MR  OD 
ITEM  MTIER 
ITEM  OMPR I 
REPORT  OF  ITEM  MTPN 

EDITION  1  ENCODED  BY  MASTER  AT  10  26  33 
ALIAS 

M.TEMP.PN 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MTPN 
DEFAULTED- AS 
CHARACTERS  7 
REPORT  OF  ITEM  MPD  E  S 

EDITION  I  ENCODED  BY  MASTER  AT  10  26  34 
ALIAS 

M_ PRO  J .DESC 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTA I  NS  0  DIRECT  REFERENCES 
ITEM  MPD  E  S 
DEFAULTED- AS 


BY  MASTER 


3  3  ON  2  7 


IS  DIRECTLY  REFERRED  TO  ONCE 
CONTAINS  0  DIRECT  REFERENCES 


BY  MASTER  AT 
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CHARACTERS  26 
REPORT  OF  ITEM  MF Y 

EDITION  I  ENCODED  BY  MASTER  AT  19.26  36  ON  27  NOV  1984 

ALIAS 

M_  F I  SCAL.YEA 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
I  TEM  MF  Y 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OF  ITEM  MOUS 

EDITION  1  ENCODED  BY  MASTER  AT  192636  ON  27  NOV  1984 
ALIAS 

M_  OR  I G.US _  S  V 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MOUS 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OF  ITEM  MCATCD6 

EDITION  I  ENCODED  BY  MASTER  AT  19 .26  37  ON  27  NOV  1984 
ALIAS 

M.CATCOD E 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MCATCD6 
DEFAULTED  -  AS 
CHARACTERS  5 
REPORT  OF  ITEM  MPR I 

EDITION  I  ENCODED  BY  MASTER  AT  19.26  38  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
I TEM  MPR I 
DEFAULTED- AS 
CHARACTERS  6 
REPORT  OF  ITEM  MDDSORT 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  39  ON  27  NOV  1984 

ALIAS 

M_  SORT. CODE 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MDDSORT 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OF  ITEM  MPE 

EDITION  1  ENCODED  BY  MASTER  AT  192640  ON  27  NOV  1984 
ALIAS 

M.PROG.ELE 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MPE 
DEFAULTED  -  AS 
CHARACTERS  6 
REPORT  OP  ITEM  MSCOPE 

EDITION  1  ENCODED  BY  MASTER  AT  19.26  40  ON  27  NOV  1984 
ALIAS 

M_  SCOPE 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MSCOPE 
DEFAULTED  -  AS 

NUMER I C- CHARACTER  9 
REPORT  OP  ITEM  MTP 

EDITION  1  ENCODED  BY  MASTER  AT  19.26  41  ON  27  NOV  1984 
ALIAS 

M_TYPE_PUNDS 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MTP 
DEFAULTED  -  AS 
CHARACTERS  I 
RETORT  OF  ITEM  MMISSION 

EDITION  1  ENCODED  BY  MASTER  AT  1926  42  ON  27  NOV  1984 
ALIAS 

M.MI  S  S  I  ON 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
I TEM  MMI  S  S  I  ON 
DEFAULTED  -  A  S 
CHARACTERS  1 
REPORT  OF  ITEM  MPA 
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EDITION  I  ENCODED  BY  MASTER  AT  1928  62  ON  27  NOV 

ALIAS 

MPR I S YSDT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
I T  EM  MPR I  SDTG 
DEFAULTED  -  AS 

CHARACTERS  1 2 
REPORT  OF  ITEM  MPA  SDTG 

EDITION  1  ENCODED  BY  MASTER  AT  1928  62  ON  27  NOV 

ALIAS 

MPAS YSDT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MPA  SDTG 
DEFAULTED  -  AS 

CHARACTERS  1 2 
REPORT  OF  ITEM  MF  NO 

EDITION  1  ENCODED  BY  MASTER  AT  19  28  63  ON  27  NOV 

ALIAS 

MFORMNO 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MF  NO 
DEFAULTED  -  AS 
CHARACTERS  7 
REPORT  OF  ITEM  MMQBGP 

EDITION  1  ENCODED  BY  MASTER  AT  19.28  64  ON  27  NOV 

ALIAS 

MMOB.GROUP 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MMOBGP 
DEFAULTED- AS 
CHARACTERS  1 
REPORT  OF  ITEM  MMPR I 

EDITION  1  ENCODED  BY  MASTER  AT  19  26. 66  ON  27  NOV 

ALIAS 

MMO  B  PR  I 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
I TEM  MMPR I 
DEFAULTED  -  AS 
CHARACTERS  6 

REPORT  OF  ITEM  MO BPR I  SDTG 

EDITION  1  ENCODED  BY  MASTER  AT  1  9  .2  6.  6  8  ON  27  NOV 

ALIAS 

MOBSDT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MO  BPR  1  SDTG 
DEFAULTED  -  AS 

CHARACTERS  12 
REPORT  OF  ITEM  ML  S  D 

EDITION  1  ENCODED  BY  MASTER  AT  19  26  67  ON  27  NOV 

ALIAS 

ML AT  E_  ST.DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  ML  S  D 
DEFAULTED  -  AS 
CHARACTERS  6 
REPORT  OF  ITEM  MR  OD 

EDITION  1  ENCODED  BY  MASTER  AT  192668  ON  27  NOV 
ALIAS 

MRQD  _OC  P  _DT 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MROI) 

DEFAULTED  -  AS 
CHARACTERS  6 
REPORT  OF  I  TEM  MT  I  Eli 

EDITION  1  ENCODED  BY  MASTER  AT  19  28  69  ON  27  NOV 

ALIAS 

MACOMT I ER 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  MT I ER 
DEFAULTED  -  A  S 
CHARACTERS  1 
REPORT  Or  ITEM  OMPR 1 


19  8  4 


19  8  4 


19  8  4 


19  8  4 


19  8  4 


19  8  4 


19  8  4 


58 


4m 


wi 

yyJ 


EDITION  1  ENCODED  BY  MASTER  AT  10  27 .00  ON  27  NOV  1084 

ALIAS 

OTHERMPR I 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
I TEM  OMPR I 
DEFAULTED  -  AS 
CHARACTERS  5 
REPORT  OF  FILE  HISTZCPl 

EDITION  1  ENCODED  BY  MASTER  AT  10-27  07  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  3  DIRECT  REFERENCES 

FILE  HI STZCP 1 

PARENT  MAIN 

SEGTYPE  SHI 

SORT  -  KEY 

ITEM  HIS.ZCPl.DT  DESCENDING 
FORM  DEFAULTED-AS 
CONTA I  NS 

I TEM  HI S.2CP1 _DT 
ITEM  HI S.fROO.MAT 
REPORT  OF  ITEM  HIS.ZCPl.DT 

EDITION  1  ENCODED  BY  MASTER  AT  10  27.06  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  2  TIMES 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  HIS  .  ZCP I .  DT 

DEFAULTED- AS 

NUMER  I C -  CHAR ACTER  8 
REPORT  OF  ITEM  HIS.PROG.MAT 

EDITION  1  ENCODED  BY  MASTER  AT  10  27. 06  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  HIS. PROG . MAT 

DEFAULTED  -  AS 

NUMER I C - CHARACTER  8 
REPORT  OF  FILE  HISTZCP2 

EDITION  1  ENCODED  BY  MASTER  AT  10.27.1}  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  6  DIRECT  REFERENCES 

FILE  HI  S  T  ZCP  2 

PARENT  MAIN 

SEGTYPE  SHI 

SORT- KEY 

ITEM  HIS.ZCP2.DT  DESCENDING 
FORM  DEFAULTED-AS 
CONTA I  NS 

ITEM  H I S.ZCP2.DT 
ITEM  HIS .ZCP.DR 
ITEM  HI  S  _  ZCP.DCD 

ITEM  HZP2.F I  LL  ER 

REPORT  OF  ITEM  HI S.ZCP2.DT 

EDITION  1  ENCODED  BY  MASTER  AT  10.27  08  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  2  TIMES 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  HI S.ZCP2 .DT 

DEFAULTED-AS 

NUMER I C- CHARACTER  6 
REPORT  OF  ITEM  HIS. ZCP.DR 

EDITION  1  ENCODED  BY  MASTER  AT  10.27  00  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  HIS .ZCP.DR 

DEFAULTED  -  AS 

NUMER I C - CHARACTER  6 
REPORT  OF  ITEM  HIS. ZCP.DCD 

EDITION  1  ENCODED  BY  MASTER  AT  10  27  10  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  HIS. ZCP.DCD 

DEFAULTED • AS 
CHARACTERS  1 

REPORT  OF  ITEM  HZP2. FILLER 

EDITION  1  ENCODED  BY  MASTER  AT  10  27  11  ON  27  NOV  1084 

ALIAS 

F  I  LL  1  2 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  HZP2.FILLER 

DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  FILE  HI STZCP3 


EDITION  I  ENCODED  BY  MASTER  AT  10.37.21  ON  27 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS. 1301 _D IS 
DEFAULTED  -  AS 

NUMER I C- CHARACTER  6 
REPORT  OF  ITEM  H I S _ l 3 0 1 .OK 

EDITION  1  ENCODED  BY  MASTER  AT  10.27.32  ON  27 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS.I30I .OK 
DEFAULTED  -  AS 
CHARACTERS  1 

REPORT  OF  ITEM  HZP4.FILLER 

EDITION  I  ENCODED  BY  MASTER  AT  10.27.23  ON  27 
ALIAS 

F  I  L  L  1  4 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HZP4.FI LLER 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  FILE  HISTZCP8 

EDITION  1  ENCODED  BY  MASTER  AT  10.27.27  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  3  DIRECT  REFERENCES 

FILE  HI STZCPB 

PARENT  MAIN 

SEGTYPE  SHI 

SORT- KEY 

ITEM  HIS.ZCP6.DT  DESCENDING 
FORM  DEFAULTED-AS 
CONTA I  NS 

ITEM  HIS  _ ZCP6 _DT 
ITEM  HIS.DSE.SD 
REPORT  OF  ITEM  HI S.ZCP6.DT 

EDITION  1  ENCODED  BY  MASTER  AT  10  27  26  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  2  TIMES 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
I TEM  H I  S . Z  C  P  6 .DT 
DEFAULTED  -  AS 

NUMER I C- CHARACTER  6 
REPORT  OF  ITEM  HIS.DSE.SD 

EDITION  1  ENCODED  BY  MASTER  AT  10  27.27  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  H I S .DSE.SD 
DEFAULTED- AS 

NUMER I C -  CHARACTER  6 
REPORT  OF  FILE  HISTACEl 

EDITION  I  ENCODED  BY  MASTER  AT  10  27  46  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  16  DIRECT  REFERENCES 

FILE  HI STACE 1 

PARENT  MAIN 

SEGTYPE  SHI 

SORT  -  KEY 


NOV  1984 


NOV  1984 


NOV  1984 


NOV  1084 


NOV  1984 


NOV  1984 


NOV  1084 


1  TEM 

HATRANS 

FORM  DEFAULTED- 
CONTA I  NS 

ITEM 

HATRANS 

I  TEM 

HKN 

I  TEM 

HACTDR 

ITEM 

HACEDR 

ITEM 

H  A  C  ED  CD 

I  TEM 

H  PA 

ITEM 

HF  Y 

1  TEM 

HSCP 

1  TEM 

HPF  Y 

ITEM 

HDTF  Y 

1  TEM 

HDTPA 

1  TEM 

HODRCN 

1  TEM 

HNDRCN 

1  TEM 

HPDRCN 

I  TEM 

HACEP  1  L  1 

REPORT  OF  ITE 
EDITION  1  E 
ALIAS 

ACE  1  TRANS 
TH I S  MEMBER 
TH I S  MEMBER 


HACEP I LLER 

ITEM  HATRANS 

1  ENCODED  BY  MASTER  AT 


NOV  1984 


IS  DIRECTLY  REFERRED  TO  2  TIMES 
CONTAINS  0  DIRECT  REFERENCES 


•  **  A*""*'  w*' 


ms 


ITEM  HATRANS 
DEFAULTED  -  AS 

NUMER 1 C - CHARACTER  C 
REPORT  OP  ITEM  HKN 

EDITION  1  ENCODED  BY  MASTER  AT  10.27.30  ON  27  NOV  1084 
ALIAS 

H I SKEYNR 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HKN 
DEFAULTED  -  AS 

CHARACTERS  13 
REPORT  OF  ITEM  HACTDR 

EDITION  1  ENCODED  BY  MASTER  AT  10.27.31  ON  27  NOV  1084 
ALIAS 
ACTDR 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HACTDR 
DEFAULTED  -  AS 

NUMER I C- CHARACTER  6 
REPORT  OF  ITEM  HACEDR 

EDITION  1  ENCODED  BY  MASTER  AT  10.27.32  ON  27  NOV  1084 
ALIAS 

H I S ACEDR 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HACEDR 
DEFAULTED  -  AS 

NUMERIC-CHARACTER  8 
REPORT  OF  ITEM  HACEDCD 

EDITION  1  ENCODED  BY  MASTER  AT  10.27.32  ON  27  NOV  1084 
ALIAS 

H I S ACEDCD 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HACEDCD 
DEFAULTED  -  A  S 
CHARACTERS  1 
REPORT  OF  ITEM  H  PA 

EDITION  I  ENCODED  BY  MASTER  AT  10.27.33  ON  27  NOV  1084 
ALIAS 

II  I  SPADES 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  H  P A 
DEFAULTED  -  AS 

NUMER  I C -  CHARACTER  8 
REPORT  OF  ITEM  HP Y 

EDITION  1  ENCODED  BY  MASTER  AT  10  27  34  ON  27  NOV  1084 
ALIAS 

HI  S  F YDES 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HFY 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OP  ITEM  HSCP 

EDITION  1  ENCODED  BY  MASTER  AT  10.27.38  ON  27  NOV  1084 
ALIAS 

H I  S  SCOPEDES 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HSCP 
DEFAULTED- AS 

NUMER I C -  CHAR ACTER  0 
REPORT  OP  ITEM  HPPY 

EDITION  1  ENCODED  BY  MASTER  AT  10.27.30  ON  27  NOV  1084 
ALIAS 

H I  S  PCP  Y 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HPPY 
DEFAULTED  -  A  S 
CHARACTERS  2 
REPORT  OP  ITEM  HDTFY 

EDITION  1  ENCODED  BY  MASTER  AT  102738  ON  27  NOV  1084 
ALIAS 

H I  SDATEF  Y 

THIS  MEMBER  IS  DIRECTLY  REPERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 


ITEM  HDTPY 
DEFAULTED- AS 

NUMERIC-CHARACTER  6 
REPORT  OF  ITEM  HDTPA 

EDITION  1  ENCODED  BY  MASTER  AT  19  27  39  ON  27  NOV  1984 

AL  IAS 

H I  S  D AT  EP A 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HDTPA 
DEFAULTED- AS 

NUMER I C - CHARACTER  6 
REPORT  OF  ITEM  HODRCN 

EDITION  1  ENCODED  BY  MASTER  AT  19.27.41  ON  27  NOV  1984 
ALIAS 

H 1  S  OLDDRCN 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HODRCN 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  ITEM  HNDRCN 

EDITION  I  ENCODED  BY  MASTER  AT  19.27.42  ON  27  NOV  1984 
ALIAS 

H I SNEWDRCN 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HNDRCN 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  ITEM  HPDRCN 

EDITION  1  ENCODED  BY  MASTER  AT  19.27.43  ON  27  NOV  1984 
ALIAS 

H I  S  PR  EDRCN 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HPDRCN 
DEFAULTED- AS 
CHARACTERS  3 

REPORT  OF  ITEM  HACEFILLER 

EDITION  1  ENCODED  BY  MASTER  AT  19  27.44  ON  27  NOV  1984 

ALIAS 

F  I  LL  1  6 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  H AC  EF I  L L ER 
DEFAULTED- AS 
CHARACTERS  1 
REPORT  OF  FILE  HISTMPES 

EDITION  1  ENCODED  BY  MASTER  AT  192763  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  7  DIRECT  REFERENCES 

FILE  HISTMPES 

PARENT  MAIN 

SEOTYPE  SHI 

SORT- KEY 

ITEM  HI S.MPES.DT  DESCENDING 
FORM  DEFAULTED-AS 
CONTA I  NS 

ITEM  H I  S  .MPES  _DT 
I TEM  H I S .CST.DT 
ITEM  H I  S  _ PR J .CST 
I TEM  H 1 S .CST.CD 
I TEM  H I S .SOLAR 
ITEM  HMPS. FILLER 
REPORT  OF  ITEM  HIS.MPES.DT 

EDITION  1  ENCODED  BY  MASTER  AT  19  27  48  ON  27  NOV  1984 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  2  TIMES 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS.MPES.DT 
DEFAULTED- AS 

NUMER I C - CHARACTER  9 
REPORT  OF  ITEM  HIS. CST.DT 

EDITION  1  ENCODED  BY  MASTER  AT  19  27  49  ON  27  NOV  1984 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  HIS .CST.DT 

DEFAULTED- AS 

NUMER I C- CHARACTER  6 
REPORT  OF  ITEM  HIS.PRJ.CST 

EDITION  I  ENCODED  BY  MASTER  AT  19.27.50  ON  27  NOV  1984 
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THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HI S.PRJ.CST 
DEFAULTED  *  AS 

NUMER I C -  CHARACTER  8 
REPORT  OF  ITEM  HIS.CST_CD 

EDITION  1  ENCODED  BY  MASTER  AT  10  .27  60  ON  27 

THIS  MEMBEH  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS  _CST _CD 
DEFAULTED- AS 
CHARACTERS  1 

REPORT  OF  ITEM  HIS. SOLAR 

EDITION  1  ENCODED  BY  MA  S  T  ER  AT  1  0  2  7  6  1  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS .SOLAR 
DEFAULTED  -  AS 

NUMER I C* CHARACTER  8 
REPORT  OF  ITEM  HMPS. FILLER 

EDITION  1  ENCODED  BY  MASTER  AT  10.27.62  ON  27 
ALIAS 

F  I  LL  1  6 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HMPS .FILL  ER 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  FILE  HISTMPEl 

EDITION  1  ENCODED  BY  MASTER  AT  10  2*  01  ON  27 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  8  DIRECT  REFERENCES 

FILE  HISTMPEl 

PARENT  MAIN 

SEGTYPE  SHI 

SORT  -  KEY 

ITEM  HIS.MPEl.DT  DESCENDING 
FORM  DEFAULTED-AS 
CONTA I  NS 

ITEM  HIS.MPEl.DT 
ITEM  HIS.MPB.DR 
I TEM  H I  S .DEI  _  DT 
ITEM  HIS .DEI _RQ 
ITEM  HIS .MPE.DCD 
ITEM  HIS  ENREVDT 
ITEM  HIS  ENRN 

REPORT  OF  ITEM  HIS.MPEl.DR 

EDITION  1  ENCODED  BY  MASTER  AT  10.27.66  ON  27 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  2  TIMES 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS .MPE 1 .DT 
DEFAULTED  -  A  S 

NUMER I C -  CHARACTER  6 
REPORT  OF  ITEM  HIS.MPB.DR 

EDITION  1  ENCODED  BY  MASTER  AT  10  27.66  ON  27 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS .MPE.DR 
DEFAULTED  -  AS 

NUMER  I C -  CHARACTER  6 
REPORT  OF  ITEM  HIS.DEI.DT 

EDITION  1  ENCODED  BY  MASTER  AT  10  27  67  ON  27 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HI S .DEI .DT 
DEFAULTED  -  AS 

NUMER I C -  CHAR ACTER  6 
REPORT  OF  ITEM  HIS. MPE. DQ 

EDITION  1  ENCODED  BY  MASTER  AT  10  27  68  ON  27 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS.DEI .RQ 
DEFAULTED  -  A  S 
CHARACTERS  1 

REPORT  OF  ITEM  HIS.MPE.DCD 

EDITION  1  ENCODED  BY  MASTER  AT  10  27  60  ON  27 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS.MPE.DCD 
DEFAULTED- AS 
CHARACTERS  1 


NOV  1084 


NOV  1084 


NOV  1084 


NOV  1084 


NOV  1084 


NOV  1084 


NOV  1084 


NOV  1084 


NOV  1084 


BBS 


REPORT  OP  ITEM  HISENREVDT 

EDITION  1  ENCODED  BY  MASTER  AT  19.27.69  ON  27  NOV  1994 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  HIS  ENREVDT 

DEFAULTED- AS 

NUMER I C -  CHARACTER  6 
REPORT  OP  ITEM  HISENRN 

EDITION  1  ENCODED  BY  MASTER  AT  19.2900  ON  27  NOV  1994 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS  ENRN 
DEFAULTED  -  AS 
CHARACTERS  2 
REPORT  OP  FILE  HISTMPC1 

EDITION  1  ENCODED  BY  MASTER  AT  19.29  07  ON  27  NOV  1994 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  6  DIRECT  REFERENCES 

FILE  HI  S  TMPC t 

PARENT  MAIN 

SEQTYPE  SHI 

SORT- KEY 

ITEM  HIS.MPC1.DT  DESCENDING 
FORM  DEFAULTED-AS 
CONTA I  NS 

ITEM  HI S.MPC1.DT 
ITEM  HIS.DES _DD 
ITEM  HI S.MPC.DCD 
ITEM  HMPC.F 1 LLER 
REPORT  OF  ITEM  HIS  _MPC 1 _DT 

EDITION  1  ENCODED  BY  MASTER  AT  19.29.04  ON  27  NOV  1994 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  2  TIMES 

THIS  MEMBER  CONTAINS  0  DIRE  JT  REFERENCES 

ITEM  HIS  _MPC 1 _DT 

DEFAULTED  -  AS 

NUMER I C - CHARACTER  6 
REPORT  OF  ITEM  HIS.DES.DD 

EDITION  1  ENCODED  BY  MASTER  AT  19.29.06  ON  27  NOV  1994 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  H I  S  .DES  .DD 

DEFAULTED- AS 

NUMER I C- CHARACTER  9 
REPORT  OF  ITEM  HIS.MPC.DCD 

EDITION  1  ENCODED  BY  MASTER  AT  19.29.06  ON  27  NOV  1994 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS.MPC.DCD 
DEFAULTED  -  AS 
CHARACTERS  1 

REPORT  OF  ITEM  HMPC.F I LLER 

EDITION  1  ENCODED  BY  MASTER  AT  192906  ON  27  NOV  1994 
AL  I  AS 

F  1  LL  1  9 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HMPC. FILLER 
DEFAULTED  -  AS 
CHARACTERS  3 
REPORT  OF  FILE  H I  S  TMPC  2 

EDITION  1  ENCODED  BY  MASTER  AT  19  29  12  ON  27  NOV  1994 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  4  DIRECT  REFERENCES 

FILE  HI  S  TMPC  2 

PARENT  MAIN 

SEGTYPE  SHI 

SORT  -  KEY 

ITEM  HIS.MPC2.DT  DESCENDING 
FORM  DEFAULTED-AS 
CONTA I  NS 

ITEM  HIS.MPC2.DT 
I TEM  H I S .CONCOM 
ITEM  HIS.DES. AMT 
REPORT  OF  ITEM  HIS.MPC2.DT 

EDITION  1  ENCODED  BY  MASTER  AT  192909  ON  27  NOV  1994 
THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  2  TIMES 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS.MPC2.DT 
DEFAULTED- AS 

NUMER I C - CHARACTER  6 
REPORT  OF  ITEM  HIS. CONCOM 


EDITION  l 
TH I S  MEMB 
TH I S  MEMB 
1 TEM  HIS. 
DEFAULTED 
NUMER I C 
REPORT  OF  I 
ED  I T I  ON  1 
TH I S  MEMB 
TH I S  MEMB 
ITEM  H I  S  _ 
DEFAULTED 
NUMER I C 
REPORT  OF  F 
EDITION  1 
TH I S  MEMB 
TH I S  MEMB 
FILE  HIST 
PARENT  MA 
SEGTYPE  S 
SORT  -  K  EY 
ITEM  H 
FORM  DEFA 
CONT A  I  NS 
ITEM  H 
ITEM  II 
ITEM  H 
REPORT  OF  I 
EDITION  1 
TH I S  MEMB 
THIS  MEMB 
I  T  EM  H  I  S  _ 
DEFAULTED 
NUMER  I  C 
REPORT  OF  I 
ED  I T I  ON  I 
THIS  MEMB 
TH I S  MEMB 
ITEM  HIS. 
DEFAULTED 
CHARACT 
REPORT  OF  I 
EDITION  1 
ALIAS 


ENCODED 
ER  IS  D  1 
ER  CONTA 
CONCOM 

-  A  S 

- CHARACT 
TEM  H  I  S  _ 
ENCODED 
ER  IS  D  I 
ER  CONTA 
DF.S.AMT 

-  AS 

- CHARACT 
1 LE  HIST 
ENCODED 
ER  IS  D  I 
ER  CONTA 
LVL 
I  N 
H  I 

I S .DT.LV 
ULTED  AS 

I S.DT.LV 
I  S_.LV  L 
l.VL.F  I  L  L 
TEM  HIS. 

ENCODED 
ER  IS  D  I 
ER  CONTA 
DT.LVL 

-  AS 

-CHARACT 
TEM  HIS. 

ENCODED 
ER  IS  D  I 
ER  CONTA 
LVL 

-  AS 
ER  S  1 
TEM  I1LVL 

ENCODED 


BY  MASTER  AT  10  21  10  ON  27  NOV  1084 

RECTLY  REFERRED  TO  ONCE 
INS  0  DIRECT  REFERENCES 


ER  6 
DES  _ A MT 

BY  MASTER  AT  10  20  11  ON 

RECTLY  REFERRED  TO  ONCE 
INS  0  DIRECT  REFERENCES 


ER  6 
LVL 

BY  MASTER  AT  10  28  17  ON 

RECTLY  REFERRED  TO  ONCE 
INS  4  DIRECT  REFERENCES 


L  DESCEND  I  NG 


ER 

DT.LVL 

BY  MASTER  AT  1  0  2  8  1  4  ON  27 

RECTLY  REFERRED  TO  2  TIMES 
INS  0  DIRECT  REFERENCES 


ER  8 
LVL 

BY  MASTER  AT  10  28  16  ON 

RECTLY  REFERRED  TO  ONCE 
INS  0  DIRECT  REFERENCES 


.FILLER 
BY  MASTER  AT 


NOV  1084 


FIL1.19 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HLVL.FI LLER 
DEFAULTED- AS 
CHARACTERS  3 
REPORT  OF  FILE  HISTCFY 

EDITION  l  ENCODED  BY  MASTER  AT  10.2820  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 

THIS  MEMBER  CONTAINS  3  DIRECT  REFERENCES 

FILE  II  I  STCF  Y 

PARENT  MA  I  N 

SEGTYPE  SHI 

SORT  -  KEY 

ITEM  HIS.DT.CFY  DESCENDING 
FORM  DEFAULTED- AS 
CONTA  I  NS 

I  T  KM  II  I  S  .DT.CFY 
ITEM  IIIS.CFY 
REPORT  OF  ITEM  HIS.DT.CFY 

EDITION  1  ENCODED  BY  MASTER  AT  10.28  10  ON  27  NOV  1084 

TIMS  MEMBER  IS  DIRECTLY  REFERRED  TO  2  TIMES 

THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 

ITEM  HIS .DT.CFY 

DEFAULTED  -  A  S 

NUMER  I C -  CHAR ACT ER  8 
REPORT  OF  ITEM  HIS.CFY 

EDITION  1  ENCODED  BY  MASTER  AT  102820  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
ITEM  HIS.CFY 
DEF  All  LTED  -  A  S 
CHARACTERS  4 
REPORT  OF  FILE  COM2 S EG 

EDITION  ♦•DUMMY**  CREATED  BY  MASTER  AT  10  28  38  ON  27  NOV  1084 

THIS  MEMBER  IS  DIRECTLY  REFERRED  TO  ONCE 
THIS  MEMBER  CONTAINS  0  DIRECT  REFERENCES 
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REPORT 
ED  1  T 
TH  l  S 
TH  I  S 
REPORT 
ED  1  T 
TH  1  S 
TH  l  S 
REPORT 
ED  I  T 
THIS 
TH  I  S 
REPORT 
ED  1  T 
TH  I  S 
TH  !  S 
REPORT 
ED  I  T 
TH  I  S 
THIS 
R  EPORT 
ED  I  T 
TH  1  S 
TH  I  S 
REPORT 
ED  l  T 
THIS 
THIS 
R  EPORT 
ED  I  T 
THIS 
THIS 
REPORT 
ED  I  T 
TH  I  S 
TH  1  S 
REPORT 
ED  I  T 
TH  I  S 
TH  I  S 
REPORT 
ED  I  T 
THIS 
TH  1  S 
REPORT 
ED  I  T 
TH  I  S 
THIS 
>«  n  d  dm 
DMO  006 
DM0  0  0  7 
DMO  0  0  7 
DMO  0  0  7 
DM00 18 
DMO  0  0  8 
DMO  0  0  7 
DMO  0  0  7 
R  .  T-6 


OF  FILE  S  I TES  EG 

ION  **DU MMY  * •  GREAT 

MEMBER  IS  DIRECTLY 

MEMBER  CONTAINS  0 

OF  FILE  CATS  EG 

ION  ••DUMMY**  CHEAT 

MEMBER  IS  DIRECTLY 

MEMBER  CONTAINS  0 

OF  FILE  CAT  3DESC 

ION  *  *  DU MMY  *  *  CHEAT 

MEMBER  IS  DIRECTLY 

MEMBER  CONTAINS  0 

OF  FILE  DESCRS  EG 

ION  * • DUMMY  *  *  GREAT 

MEMBER  IS  DIRECTLY 

MEMBER  CONTAINS  0 

OP  FILE  D I  VS  EG 

ION  *  *  DUMMY • •  CHEAT 

MEMBER  IS  DIRECTLY 

MEMBER  CONTAINS  0 

OF  FILE  I  NSTS  EG 
ION  ••DUMMY**  CHEAT 

MEMBER  IS  DIRECTLY 

MEMBER  CONTAINS  0 

OF  FILE  MAC  MS  EC. 

ION  ••DUMMY**  CHEAT 

MEMBER  IS  DIRECTLY 

MEMBER  CONTAINS  0 

OF  FILE  Z  BD I CS  EG 

ION  •♦ DUMMY ••  GREAT 

MEMBER  IS  DIRECTLY 

MEMBER  CONTAINS  0 

OF  FILE  AUTHSEG 

ION  •  • D U MMY *  *  GREAT 

MEMBER  IS  DIRECTLY 

MEMBER  CONTAINS  0 

OF  FILE  NOTEAUTH 

ION  •♦ DUMMY ••  GREAT 

MEMBER  IS  DIRECTLY 

MEMBER  CONTAINS  0 

OF  FILE  A  P  PR  S  EG 

ION  •• DUMMY CHEAT 

MEMBER  IS  DIRECTLY 

MEMBER  CONTAINS  0 

OF  FILE  NOTES  EG 

ION  DUMMY •*  CREAT 

MEMBER  IS  DIRECTLY 

MEMBER  CONTAINS  0 


ED  BY  MASTER  AT  19.28  3ft  ON  27  NOV  1984 
REFERRED  TO  ONCE 


DIRECT  REFERENCES 


ED  BY  MA  STER  AT  19 
REFERRED  TO  ONCE 
DIRECT  REFERENCES 


2  8  3  8  ON  2  7  NOV  19  8  4 


ED  BY  MASTER  AT  19 
REFERRED  TO  ONCE 
DIRECT  REFERENCES 


283ft  ON  27  NOV  1984 


ED  BY  MASTER  AT  19 
REFERRED  TO  ONCE 
DIRECT  REFERENCES 


283ft  ON  27  NOV  1984 


ED  BY  MASTER  AT  19  28  3ft  ON  27  NOV 

REFERRED  TO  ONCE 
DIRECT  REFERENCES 


ED  BY  MASTER  AT  19.28  3ft  ON  27  NOV  1984 
REFERRED  TO  ONCE 
DIRECT  REFERENCES 


ED  BY  MASTEi  T  1  9.2  8.3  6  ON  27  NOV 
REPERRED  TO  NCE 
DIRECT  REFERENCES 


19  8  4 


ED  BY  MASTER  AT  192836  ON  27  NOV 
REFERRED  TO  ONCE 
DIRECT  REFERENCES 


10  8  4 


ED  BY  MASTER  AT  19  28  36  ON  27  NOV 

REFERRED  TO  ONCE 
DIRECT  REFERENCES 


ED  BY  MASTER  AT  19  28  36  ON  27 

REFERRED  TO  ONCE 
DIRECT  REFERENCES 


NOV  1984 


ED  BY  MASTER  AT  19  28  36  ON  27  NOV  1984 

REFERRED  TO  ONCE 
DIRECT  REFERENCES 


ED  BY  MASTER  AT  19  28  3ft  ON  27  NOV  1984 

REFERRED  TO  ONCE 
DIRECT  REFERENCES 


2  I 

2  I 

3  I 
6  I 
0  I 
1  I 
0  I 
1  I 

9  1 


END  OF  OATA  ON  PRIMARY  INPUT  FILE 

642  FREE  BLOCKS  038  FREE  BLOCKS  ON  DATA  ENTRIES  OATA  SET 
906  FREE  BLOCKS  ON  INDEX  DATA  SET 

2  %  UTILIZATION  OF  ERROR  RECOVERY  DATA  SET 

8480  BYTES  USED  IN  STACK  STORAGE 
63688  BYTES  USED  IN  NON-STACK  STORAGE 

4  LINES  READ  FROM  PRIMARY  INPUT  FILE 
3  3  ft  0  LINES  PRINTED 


01  15  28 
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APPENDIX  C 


DATA  USED  TO  IDENTIFY  STANDARD  REPORTS 


The  Standard  Report  Definition  file  contains  the  information  shown  in  Tables  Cl 
through  C3. 


REPORT  ID 


TARGET  ITEM  NAME 


>UALIFYING  ITEM  NAME 


2  auth_amt,prog_amt,cwe_amt,  fy 

des_percent,  des_st_dt, 

_ des_comp_dt,dist_name _ 

Table  Cl.  Target  data  items  and  qualifying  items  for  two  reports. 


DATA  ITEM  NAME 

_ prog_ele _ 

_ auth_amt _ 

_ prog_amt _ 

_ cwe_amt _ 

de3_pcrcent _ 

_ dc3_st_dt _ 

des_comp_dt 

_ dist_name _ 

fy 


INTERNAL  KEYWORD 

amount, element, program _ 

amount, authorized, authority 

_ amount, program _ 

current, estimate, amount, project 
progress, design  .completion, percent 

_ design, start, date _ 

_ design, completion, date _ 

_ district, title.rcgional _ 

current, year, congress, fiscal 


Table  C2.  Internal  keywords  corresponding  to  data  items  in  Table  Cl. 


INTERNAL  KEYWORD 

SEARCH  KEYWORD 

program, project 

mrnrnmmm 

current 

current 

amount 

amount, cost 

fiscal 

fiscal 

element 


congress 


estimate 


completion 


ercent 


start 


date 


district 


title 


element 


estimate 


completion 


ercent 


start 


date 


district 


title 


regional, region 


authorized 


rogress 


authorized 


rogress 


irtvf, 


APPENDIX  D; 


SAMPLE  QUERY  PROCESSING  SESSION 


CMS  >  *  I  d  r  «  p 


WELCOME  TO  THE  REPORT  GENERATOR  •••• 


THIS  SYSTEM  IS  A  QUESTION  -  DRIVEN  INTERACTIVE  ONE 
IT  ACCEPTS  AN  INITIAL  QU^RY  FROM  THE  USER.  EG  . 

SHOW  THE  COST  FOR  PROJECT— Bl 2  AND  YEAR  —  81 
AND  DECIDES  WHICH  REPORTS  SATISFY  THE  INITIAL  QUERY 
AND  THEN  GENERATES  THE  REPORT  SELECTED  BY  THE  USER. 

JUST  FOLLOW  THE  PROMPTS  AND  PROCEED  THROUGH  TO 
OBTAIN  THE  DESIRED  REPORT 

NOTE  THE  REPORT  GENERATOR  MAY  BE  EXITED  AT  ANY 

TIME  A  PROMPT  IS  PRESENTED  BY  TYPING  "QUIT* 
EXCEPT  WHEN  PROMPTED  WITH 
•ENTER  INITIAL  QUERY" .  THEN  EITHER  " ENDQ " 

OR  A  NULL  LINE  ARE  REQUIRED  TO  EXIT 


ENTER  AN 


INITIAL  QUERY 


>t  e  II 


about  cost  summarised  by  program  element 


> 

FOLLOWING  STANDARD  REPORT(S)  SATISFY  YOUR  QUERY 
REPORT  ID  REPORT  FULL  NAME 


1  SUMELEM 

WHICH  OF  THE  ABOVE  REPORT  DO  YOU  WANT  ? 

TYPE  WANTED  REPORT  ID  (EG. 1,2,  ) 

OR  TYPE  ?  FOR  MORE  DESCRIPTION 

OF  THE  REPORT( S ) 

OR.  TYPE  RETURN  KEY  IF  YOU  DON’T  LIKE  ANY 
OF  THESE  REPORTS 


REPORT  ID  REPORT  FULL  NAME  REPORT  DESCRIPTION 


1  SUMELEM  SUMMARY  BY  PROGRAM  ELEMEN 

T  DOLLARS  IN  THOUSANDS 


WHICH  OF  THE  ABOVE  REPORT  DO  YOU  WANT! 

TYPE  WANTED  REPORT  ID  (EG.  1,2...  .) 

OR.  TYPE  RETURN  KEY  IF  YOU  DON’T  LIKE  ANY 
OF  THESE  REPORTS 

>  1 


YOU  HAVE  SELECTED  THE  FOLLOWING  STANDARD  REPORTS 
FOR  GENERATION 

REPORT  ID  REPORT  FULL  NAME 


1  SUMELEM 

IS  THIS  LISTING  CORRECT  ? 
Type  YES/NO 
>y  e  e 


TO  COMPLETE  THE  QUERY,  YOU  MUST  SPECIFY  THE  VALUES  OF  FOLLOWING  DATA  ITEMS 
CFY  IN  PMMFILE  FORMAT  —  A2 

DE SC  F 1 SCAL  YEAR 

>8  4 

WORKING  X  47  ON  12/02/84 
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>t.  a«, 


FOCUS  4.0.14V  <ST>  CREATED  01/24/84 

>>>>>>>>>> 

WELCOME  TO  FOCUS 


>»»»»»>WORK  I  NG 

NUMBER  OF  RECORDS  IN  TABLE—  374  LINES—  4 


PAUSE.  PLEASE  ISSUE  CARRIAGE  RETURN  WHEN  READY 


FY  1984  SUMMARY  BY  PROGRAM  ELEMENT 
DOLLARS  IN  THOUSANDS 

F  Y 


PRO.T I TLE 


GENERAL  PURPOSE  FORCES 

I  NT  EL  L I GENCE 
RESEARCH  St  DEVELOPMENT 

CENTRAL  SUPPLY  St  MA  I  NT 

TRAINING  St  PERSONNEL 

ADM I  N 1  STRAT I  V  B 


748.982 

8,934 


69.284 

7  3.8  7  1 


182.002 

209,444 


1,3  0  2,7  4  1 


>  S  ELECT  ACTION  TO  BE  TAKEN 


1  EXECUTE  A  DIFFERENT  QUERY. 

2  EXIT  FROM  THE  REPORT  GENERATOR 


WELCOME  TO  THE  REPORT  GENERATOR  •••• 


THIS  SYSTEM  IS  A  QUESTION  -  DRIVEN  INTERACTIVE  ONE. 
IT  ACCEPTS  AN  INITIAL  QUERY  FROM  THE  USER.  EG  , 
SHOW  THE  COST  FOR  PROJECT  — B 1  2  AND  YEAR  —  8  1 
AND  DECIDES  WHICH  REPORTS  SATISFY  THE  INITIAL  QUERY 
AND  THEN  GENERATES  THE  REPORT  SELECTED  BY  THE  USER 


JUST  FOLLOW  THE  PROMPTS  AND  PROCEED  THROUGH  TO 
OBTAIN  THE  DESIRED  REPORT 


THE  REPORT  GENERATOR  MAY  BE  EXITED  AT  ANY 
TIME  A  PROMPT  IS  PRESENTED  BY  TYPING  "QUIT* 
EXCEPT  WHEN  PROMPTED  WITH 
•ENTER  INITIAL  QUERY-,  THEN  EITHER  *  ENDQ  * 

OR  A  NULL  LINE  ARE  REQUIRED  TO  EXIT. 


ENTER  AN  INITIAL  QUERY 


e  I  I  m«  anything  about  current  program  cost 


FOLLOWING  STANDARD  REPORT(S)  SATISFY  YOUR  QUERY 
REPORT  I D  REPORT  FULL  NAME 


CONFUN2 


WHICH  OP  THE  ABOVE  REPORT  DO  YOU  WANT? 

TYPE  WANTED  REPORT  ID  (EG  1,2,  ) 

OR  TYPE  f  FOR  MORE  DESCRIPTION 
OF  THE  REPORT ( S ) 

OR,  TYPE  RETURN  KEY  IF  YOU  DON'T  LIKE  ANY 
OF  THESE  REPORTS 


REPORT  ID 


REPORT  FULL  NAME 


REPORT  DESCRIPTION 


CONFUN2 


MCA  CONSTRUCTION  FUNDS  ST 
ATUS 


-V\- 


v  v 

' '--.  V 

rto" 


v-a 


ww 


85’ 


WHICH  OF  THE  ABOVE  REPORT  DO  YOU  WANT! 

TYPE  WANTED  REPORT  ID  ( E . G . 1.8,  .  ) 

OR,  TYPE  RETURN  KEY  IF  YOU  DON’T  LIKE  ANY 
OF  THESE  REPORTS 


SELECT  ACTION  TO  BE  TAKEN: 

1  EXECUTE  A  DIFFERENT  QUERY 

2  EXIT  FROM  THE  REPORT  GENERATOR 

>2 

1649  EDT 

CMS  > 
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APPENDIX  E: 


LISTING  OF  FILES 


Y  S  1  MAP 

PROCEDURE  OPT  I ONS (  MA I N )  ; 


PROJECT 

PROGRAMMER 


P 1 LENAME : 
LANGUAGE 
DEPENDENC I ES 


REPORT  GENERATOR 

DEPARTMENT  OP  COMPUTER  SCIENCE 
UNIVERSITY  OP  ILLINOIS 

THESAURUS  PL  I 
PL / I  UNDER  CMS 
SKWDIN  DATA 


DATE 


DECEMBER , 


10  8  4 


THIS  MODULE  READS  IN  ALL  THE  USER  SEARCH  KEYWORDS  AND  THEIR 
ASSOCIATED  INTERNAL  KEYWORDS  FROM  THE  DATAFILE  SKWDIN  IT 
THEN  CREATES  THE  HASH  TABLE  AND  WRITED  THE  TABLE  IN  TO 
THE  DATA  PILE  SKWDOUT  FOR  USE  DURING  QUERY  PARSING 


DC  L 
DC  L 
DC  L 
DC  L 


SKWDOUT  PILE  OUTPUT  STREAM  ENV  (F  R EC S I Z E ( 8 0 ) > 
NULL  BUILTIN; 

WD  L  ENG  DEC  P  1  X  KD (  2  )  INIT(12); 

( SKWD, INKWD)  CHAR (12)  VARYING, 


WD  CHAR( 12)  VARYING  . 

END  .LINE  CHARI  12)  VARYING  IN!T( 
MORE.REC  BIT(l)  INIT  (’l’B). 

YES  B I T | 1 )  I N I T ( 

NO  B I T ( 1 )  I N I T ( 


NEXT 
FLAG 
I  NFL 
I  NDX 

(  *  .  J 

MO  RE.  WD 
HTBS  I  Z  E 


DEC  FIXED 
B  1  T  (  1  )  . 

B  I  T  (  1  )  , 

DEC  P  I  X  ED  , 

K)  DEC  FIXED 
B  I  T  (  1  )  , 
DEC  FIXED 


l’B). 

0  ’  B  )  , 

N  I  T  (  10  12) 


/  ' 
/  ' 
/  * 
/  ' 
’  )  , 
r 


WORD  LENGTH  •  / 

USER  SEARCH  KEYWORD, 
INTERNAL  KEYWORD  *f 
WORD  OR  TOKEN  */ 


MORE  RECORDS  IN  FILE  •/ 


I  N  I  T  (  12  13) 


INIT| 4 ) . 

I  N  I  T  (  10  13) 


DC  L 


BKS  I  Z  E  DEC  FIXED 
TBS  I  Z  E  DEC  FIXED 
C (  8  0  )  CHAR (  1  )  , 

PTR  PO 1  NT  ER  , 

1  H TABLE( 0  HTBS 1 ZE- 1 ) 
2  TBL(RKSIZE) , 

3  SKWDF  CHAR (12), 
3  COUNT  DEC  FIXED 


3  INKWDPT  POINTER. 

2  OVERPL  DEC  FIXED  I N I T ( ( HT B S I Z E ) 
DC  L  1  INKWDREC  BAS  ED | CURR. I NKWD.PT )  , 
2  I NKWDF  CHAR( 12)  VARYING, 

2  NEXT  I  NK WD  POINTER, 


/  * 

I  N  I  T  (  (  HTBS  I  ZE* 

/  # 

/* 

0  )  , 

/  # 

/  # 

/  # 


MORE  WORDS  IN  LINE  • 
HASH  TABLE  SIZE  • / 
BUCKET  SIZE  • / 
OVERFLOW  TABLE  SIZE  ' 
INPUT  LINE  BUFFER  •/ 


HASH  TABLE 


THESAURUS  • 


USER  SEARCH  KEYWORD  •/ 
BKS  I  Z  E )  0  )  . 

NUMBER  INTERNAL  KEYWORDS 
TO  INTERNAL  KEYWORD  LIST 

NODE  OF  INTERNAL  KEYWORD 
INTERNAL  KEYWORD  •/ 

NEXT  INTERNAL  KEYWORD  •/ 


LIST  •  / 


/  * . * . / 

/*  MAIN  PROCEDURE  •/ 

/ . •••••/ 


ON  END P I LE(  SYS  I N)  MORE.REC— NO, 

DO  WH I LE( MORE.REC ) ; 

GET  ED  I T (  C )  (80  A  (  1  )  )  , 

I NFL-YES ; 

MO  RE. WD  —MO  R B.REC; 

DO  WH I  LE(  MORE.WD )  ; 

WD— GETWD  . 

IF  (  WD  —  *  *  )  THEN  MORE. WD— NO, 

ELSE  DO, 

IF  I  NFL  THEN 

DO  . 

1 NKWD— WD , 

I  NF  L— NO , 

END  , 
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ELSE  DO, 

SKWD-WD 

/ •  COMPUTE  HASHING  FUNCTION  INDEX  •/ 

I NDX-MOD( HASHF ( SKWD ) ,  TBS  I  ZE ) ; 

FLAG— VES . 

DO  WHILE  (FLAG). 

I  —  I  . 

/•  CHECK  IF  BUCKET  IS  FULL  •/ 

DO  WHILE  (FLAG  Jk  (  I  <-BK  SIZE)), 

IF  | COUNT ( I NDX , I )  NE  0)  THEN  DO, 

/•  CHECK  IF  THE  RECORD  IS  OCCUPIED  •/ 

IF  ( S KWDF ( I NDX . I ) — S KWD )  THEN 
/•  CHECK  IF  THE  SEARCH  KEYWORD  IS  THE  SAME  */ 

DO  . 

f  ’  T  R  —  I  NKWDPTI  I  NDX  .  I  )  . 

/ ♦  INSERT  INTERNAL  KEYWORD*/ 

DO  WHILE  (FLAG  A  ( PTR  NE  NULL)); 

IF  PTR - > I NKWDF-l NKWD  THEN  DO; 

PUT  LIST!  DUPLICATED’ . I NKWD ) ; 

FLAG-NO . 

END,  /•  END  IF  PTR- >  THEN  •/ 

ELSE  DO. 

PTR  —  PTR •  >N EXT  I  NKWD  . 

END.  /•  END  ELSE  •/ 

END .  / •  END  WHILE  • / 

IF  FLAG  THEN  DO, 

COUNT (  I  NDX  .  I  ) —COUNT (  I  NDX  .  I  )  +  I  ; 

ALLOCATE  INKWDREC. 

NEXT  I  NKWD- I  NKWD PT  (  I  NDX  .  I  )  . 

I  NKWD PT  (  1  NDX  .  I  ) — C  URR.  I  N  K  WD _  PT  ; 

I  NKWD  F  —  I  NKWD  , 

F  LAG— NO . 

END .  / •  END  FLAG  ♦ / 

END  . 

ELSE 

I  -I  +  I 

END  . 

ELSE  DO; 

S  K  WD  F  (  I  NDX.  I  l-SKWD, 

COUNT (  I NDX  .  I  ) —COUNT  (  I  NDX  ,  I  )  +  1  ; 

ALLOCATE  INKWDREC. 

I NK WD  PT (  I NDX  ,  1  ) -CURR. I NKWD. PT , 

I NK  WD  F  —  I  NKWD  . 

NEXT  I  NK WD— NU  L  L  ; 

F  LAG— NO  . 

END  . 

END  . 

I  F  FLAG  THEN 

DO  . 

IF  ( OVERF L ( I NDX ) — 0 )  THEN 

DO  ; 

NEXT-NEXT ♦ I ; 

OVERFL( I NDX)— NEXT. 

END  . 

I  NDX— OV  ER  F  L  (  I  NDX  )  . 

END  ; 

END;  /•  DO  WHILE  FLAG  •/ 

END;  ( #  END  ELSE  •/ 

END  ; 

END;  /•  DO  WHILE  MORE.WD  •/ 

END;  /•  DO  WHILE  MORE.REC  •/ 

DO  1—0  TO  HTBSIZE-  I  ; 

IF  ( COUNT (1.1)  NE  0)  THEN 
DO  . 

DO  J  — I  TO  DK  SIZE, 

IP  ( COUNT ( I . J )  NE  0)  THEN  DO. 

PUT  FILE! SKWD OUT )  ED1T( I . J , SKWDF( I , J ) . COUNT ( I , J ) ) 

( COL (  1)  ,  2 (  F (  6  )  ,X(  1))  ,A(  12)  ,X(  1)  ,  F (  6  )  )  , 

PUT  F I  LP(  S  KWD OUT )  ED  I T  (  •  *  )  (  CO L  (  l  )  , A  (  0  )  )  , 

PTR  — I NK  WD  PT  (  I  .  J  )  , 

DO  K— I  TO  COUNT (  I  ,  J  )  , 

PUT  F I LE( SKWD OUT )  ( PTR - > I NK WD F )  ; 

PTR— PTR - >NEXT I NKWD , 

END ,  / •  DO  K  • / 

END.  /•  IF  (  COll  NT  (  I  ,  J  )  THEN  ♦/ 

END ,  / •  END  DO  J • / 

IF  (OVERFL(I)  NE  0)  THEN 

PUT  P  I  LE(  SKWDOUT  )  ED  I  T  (  I  ,  *  0  *  ,  OV  ER  F  L  (  I  )  )  (COM  l)  ,3  (P(S).X(l))) 

END ,  / •  END  THEN  •  / 

END;  /•  END  DO  I  •/ 
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/•  PROCEDURE  GETWD  •/ 

/•  */ 

/♦  PURPOSE:  THIS  FUNCTION  DETERMINES  AND  RETURNS  THE  */ 

/•  NEXT  WORD  OR  TOKEN  FROM  THE  INPUT  BUFFER,  •/ 

/♦  C.  IF  NO  ’NEXT'  WORD  EXISTS,  THE  NULL  •/ 

/•  STRING  IS  RETURNED  */ 

/•  V 

. . 


GETWD 

PROCEDURE  RETURNS ( CHAR ( 1 2 )  VARYING); 
DC  I,  FLAG  B  I  T  (  1  )  . 

WD  C  H  A  R (  12)  VARYING. 

1  DEC  FIXED  STATIC  INIT(l); 
FLAG-YES ; 

DO  WHILE  (I  LB  8  0  AND  FLAG)  ; 

IF  (  C  (  I  )  NE  1  ’ )  THEN 

F  LAG— NO . 

ELSE  I  — I  *  I  . 

END  . 

WD—  *  * 

IF  (NOT  FLAG)  THEN 
DO  . 

FLAG-YES ; 

DO  WHILE  (I  LE  80  AND  FLAG) ; 

IF  (  C  (  I  ) —  *  *)  THEN  FLAG— NO; 

ELSE  DO ; 

WD-WD  CAT  C  (  I  )  . 

I  —  I  +  1  ; 

END  ; 

END  ; 

END  . 

IF  ( WD  — ’  * )  THEN  I -1 . 

R  ETURN (  WD )  . 

END  GETWD; 


/ . . . 

/•  #/ 

/•  PROCEDURE  CON V  ♦/ 

/•  •/ 

/*  PURPOSE:  THIS  FUNCTION  CONVERTS  A  CHARACTER  TO  •/ 

/•  ITS  INTERNAL  NUMERICAL  REPRESENTATION  •/ 

/•  •/ 

/ . * . / 


CON  V 

PROCEDURE!  CHR )  RETURNS  (  D  EC  F  I  X  ED (  3  ,  0  )  )  . 
DC  L  CHR  CHAR (  1  )  ; 

RETURN! UNS PEC ( CHR ) ) ; 

END  CON V ; 


. . . . . . * . . . / 

/•  V 

/•  PROCEDURE:  HASHP  •/ 

/•  */ 

/•  PURPOSE:  THIS  FUNCTION  CALCULATES  AND  RETURNS  THE  •/ 

/•  INDEX  INTO  THE  HASH  TABLE  FOR  THE  •/ 

/•  SPECIFIED  WORD  (THE  DETAILS  OF  THE  •/ 

/•  HASHING  FUNCTION  USED  CAN  BE  FOUND  IN  •/ 

/•  THE  EXTERNAL  DOCUMENTATION  )  •/ 

/•  •/ 

/ . . . . . . . . . . . */ 


HASHF : 

PROCEDURE! STR )  RETURNS  (DEC  FIXED! 12)); 

DC  L  I ND  DEC  FIXED!  3.0)  , 

STR  CHAR (12)  VARYING. 

POS  DEC  FIXED! 2 )  INIT(7)  STATIC 
LNG  DEC  F I  X  ED (2.0); 

LNG- LENGTH( STR) , 

I F  ( LNG— 0 )  THEN 
R  ETURN (  0 )  ; 

ELSE 

R  ET  URN( HASHF(  SUBS TR (STR,  1  ,  LNG -  1  )  )  *POS +CONV (  SUB3TR (  STR,  LNG.  I)  )  ) 
END  HASHF ; 

END  YSIMAP; 
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ZSRDEF  PROCEDURE  OPT  I  ON S  (  MA IN), 


PRO  J  ECT 
PROGRAMMER 


REPORT  GENERATOR 

DEPARTMENT  OF  COMPUTER  SCIENCE 
UNIVERSITY  OF  ILLINOIS 


F I LENAME 
LANGUAGE : 
DEPENDENC I ES 


DFNGENERATOR  PL  I 
PL/1  UNDER  CMS 


DECEMBER , 


THIS  PROGRAM  ALLOWS  A  USER  TO  MANUALLY  CREATE  THE 
STANDARD  REPORT  DEFINITIONS  IT  PROMPTS  THE  USER 
FOR  THE  REQUIRED  INFORMATION  AND  THEN  PROPERLY 
ARRANGES  IT  IN  THE  DATA  FILE  SRDEF  THE  OTHER 
OPTION  IS  TO  CALL  THE  DATA  DICTIONARY  ACCESS 
PROCEDURE  THIS  LATER  METHOD  AUTOMATICALLY 
CREATES  THE  SRDEF  FILE 


SRDEF  FILE 

RECORD  OUTPUT 

SEQUENTIAL  ENV (  F (  1  0  6  0  )  )  ; 

I  REPORT. 

2  RID 

P  1  X  ED (  2  )  , 

/  • 

REPORT 

ID  •  / 

2  F  NAME 

CHAR ( 32), 

/  • 

REPORT 

FULL  NAME  •/ 

2  DES 

CHAR (72), 

/  • 

R  EPORT 

DESCRIPTION  •  / 

2  T  _  NUM 

P  I  X  ED (  2  )  , 

/• 

NO  OF 

TARGET  ITEMS  •/ 

2  Q.NUM 

P  1  X  ED (  2  )  , 

/* 

NO  OF 

QUAL I F I  ERS  •  / 

2  T  I  TEM(  1 

0  )  . 

3  TINAME 

CHAR (12). 

/  • 

I  TEM 

NAME  •  / 

3  FORMAT 

CHAR (10), 

/  • 

FORMAT  •/ 

3  D  BNAME 

CHAR ( 8 ) . 

/• 

DATABASE  NAME  •/ 

3  LOG  ID 

CHAR (  8  >  . 

/  * 

LOG  1  N 

ID  •  / 

3  PASSWD 

CHAR  (  »  )  . 

/• 

PASSWORD  •/ 

3  PULNAM 

CHAR  (32). 

/• 

FULL 

NAME  OF  THE  ITEM  •/ 

3  TIDES 

CHAR (72), 

/* 

DESCRIPTION  OF  THE  ITEM  •/ 

3  HEIGHT 

F  1  X  ED  (  2  )  . 

/  • 

LENGTH  OF  ACCESS  PATH  •/ 

3  PATH (  4  )  CHAR (  8  )  ; 

/  • 

ARRAY 

OF  PARENT  SEGMENTS  • 

(I.J.K)  FIX  ED (2); 

DC  L  (I.J.K)  FIXED!  2) 
DC  L  YESORNO  CHAR (  3  )  ; 
DC  L  NUMBER  FIXED!  2)  ; 


MA  I  N  PROCEDUR  E 


OPEN  FILE  ( SRDEF ) , 

DO  I —1  TO  3  ,  / •  I N  PUT 

DISPLAY! 'NOW  ENTER  REPORT  RECORD) 

RID  —  I . 

DO  J  — I  TO  10,  /•  INIT  WORK  A  El 

TITEM(  J)  T I  NAME  —  ’ 

TITEM( J )  FORMAT  — 

T ITEM!  J  )  .  D  BNAME  —  *  ’ 

T I T  EM(  J  )  LOG  ID  —  * 

TITF,M(  J  |  PASSWD  — 

TITF.M!  J)  FULNAM  -  *  *  ; 

T  I  TEM(  J  )  T  I  DES  —  *  ’  ; 

T I T  EM!  J)  HEIGHT  —  1 

DO  K  — 1  TO  4  , 

TITEM(J)  PATH ( K )  —  ’ 

END  , 

END  . 

DISPLAY!  ’ENTER  REPORT  FULL  NAME  -  •  CIIAR  (  3  2  ) 
R  KPI.  V  (  F  NAME  )  . 

DISPLAY!  ‘  ENTEH  DES  OP  REPORT  -  •  -  CIIAR!  72)  '  ) 


N  PUT  REPORT  RECORD  •/ 


INIT  WORK  A ERA  •, 


PATH ( K )  — 


CHAR (32) 


RRPLYjDRS) . 
DISPLAY! ’ENTER  NO 
GET  LIST  (NUMBER). 
T.NtlM  —  NUMBER. 

DO  J  — 1  TO  T.NIJM. 

CALL  GET  I TRM(  J  ) 

END  . 

DISPLAY!  ENTER  NO 
GET  LIST  (NUMBER). 

Q  _ NUM  —  NUMBER. 

DO  J— I  TO  Q.NHM, 


OP  TARGET 


OP  QUA  LIFI  ERS  '  ) 


QUALIFIER 


IV 

n 

I 

I 


%*  V 

*  .  «  w  * 

. 

V 

^  j 


•  V7' 

vV 

vv- 


YUS  I  NT  : 

PROCEDURE  OPT  I ONS  (  MA  I  N ) 


PROJECT  REPORT  GENERATOR 

PROGRAMMER  DEPARTMENT  OF  COMPUTER  SCIENCE 

UNIVERSITY  OF  ILLINOIS 

FILENAME  F  R  O  NT  ENDD R  I  V  ER  P  L  I 

LANGUAGE  PL/ I  UNDER  CMS 

DEPENDENCIES:  I  N I  TTH E S AUR U S  PL  I 

S  ETD  BI NTERFACE  PLI 
DEC  I  S  I ONMAKER  PLI 

DATE:  DECEMBER,  1084 

/ 


/  •  THIS  MODULE  CONTAINS  THE  DRIVER  FOR  THE  FRONT  END 
OF  THE  REPORT  GENERATOR 

V 


DC  L  SYSIN  FILE  INPUT  STREAM  ENV  (  F  RECSIZE  (80)), 

DC  L  URIFR  FILE  OUTPUT  STREAM  ENV  (  F  (  2  3  6  )  )  ; 

DC  L  SYSPRINT  FILE  OUTPUT  STREAM  ENV  (  F  RECSIZE  (80)); 

DC  L  YQINIT  ENTRY  EXTERNAL,  /•  INITIALIZATION  OF  THESAURUS  •/ 

YUINIT  ENTRY  EXTERNAL,  /•  INITIALIZATION  OF  STANDARD  REPORT 

/ *  DEF I N I T I ONS  * / 

YAIN1T  ENTRY  EXTERNAL.  /•  SET  UP  DATA  DICTIONARY  INTERFACE 

Y  Q  PAR  S  E  ENTRY  EXTERNAL,  /•  QUERY  PARSER  •/ 

ZUIF  ENTRY  EXTERNAL;  /•  DECISION  MAKER  •/ 

DC  L  YES  BIT(l)  INIT(  '  1  '  )  , 

NO  BIT(l)  INIT(O’); 

DC  L  MORE^Q  BIT(l)  INIT(’l’)  STATIC  EXTERNAL;  /•  ANOTHER  QUERY  •/ 


/•••••* . / 

/•  MAIN  PROCEDURE  •/ 

. 


CALL  YQINIT. 

CALL  YUINIT. 

CALL  Y  A  I  N I T  , 

OPEN  FILE(URIFR) . 

PUT  FILE(URIFR)  ED  I T (  -  1  )  (  CO L  (  1  )  .  F  (  2  )  )  . 

CLOSE  FILE(URIFR) ; 

CALL  YQPARSE, 

IF  MOR  E_Q  THEN  CALL  ZUIF; 

END  YUS  I  NT ; 


I N I TR  EPORTDF  NS  PLI 
QUERYPAR  S  ER  PLI 


LjVj 


YQINIT: 

PROCEDURE  OPTIONS(MAIN)  ; 


REPORT  GENERATOR 

DEPARTMENT  OF  COMPUTER  SCIENCE 
UNIVERSITY  OF  ILLINOIS 

I NI TTHESAURUS  .  PL  I 
PL /I  UNDER  CMS 
SKWDOUT . DATA 

DECEMBER ,  1084 


/  •  THIS  MODULE  INITIALIZES  THE  PARSER’S  INTERNAL  REPRESENTATION 
OF  THE  THESAURUS  IT  SIMPLY  READS  THE  DATA  FROM  THE  FILE 
SKWDOUT  DATA  AND  CREATES  THE  HASH  TABLE 


PROJECT 
PROGRAMMER  : 


F I LENAME : 
LANGUAGE : 
DEPENDENC I  ES  : 


DC  L  SKWDOUT  FILE  INPUT  STREAM  ENV (  F  RECS 

DC  L  NULL  BUILTIN; 

DC  L  YES  BIT(l)  INIT(  TB)  , 

NO  B I T ( 1 )  INIT(’OB), 

PTR  POINTER; 

DC  L  HTBSIZE  DEC  FIXED  INITf  1213)  ,  /* 

TBS  I  ZE  DEC  FIXED  1NIT(  1013)  ,  /* 

BK  SIZE  DEC  FIXED  !NIT(4);  /* 

DC  L  1  H  T  A  B  L  E (  0  :  1212)  STATIC  EXTERNAL,  /* 

2  TBL ( 4 ) , 

3  SKWDF  CHAR (12),  /* 


ZE)  80)  ) 


•  HASH  TABLE  SIZE  */ 

♦  OVERFLOW  TABLE  SIZE  *, 

•  BUCKET  SIZE  •  / 

*  HASH  TABLE-  -  THESAURUS 

♦  USER  SEARCH  KEYWORD  • 


COUNT  DEC 


INIT(  (  1213*4)0)  ,  / • NUMBER  INTERNAL  KEYWORDS*/ 


3  INKWDPT  POINTER,  /* 

2  OVERFL  DEC  FIXED  1 N I T (  (  1  0  1  3  )  0  )  ; 
INKWDREC  BASED) CURR. I NKWD.PT ) .  /« 

2  INKWDF  CHAR (12)  VARYING,  /* 

2  NEXTINKWD  POINTER;  /* 


NEXT  INTERNAL  KEYWORD  ♦/ 

NODE  OF  INTERNAL  KEYWORD 
INTERNAL  KEYWORD  •/ 

NEXT  INTERNAL  KEYWORD  •/ 


DC  L  (  (  ,  J  )  DEC  FIXED, 
MORE.REC  BIT) 1 ) 


MAIN  PROCEDURE 


I  N  I  T  (  •  1  ’  B  ) 


ON  ENDF I LE) SKWDOUT )  MORE.REC-NO; 

DO  WHILE  (MORE.REC); 

GET  F I LE) SKWDOUT )  EDIT) I , J)  (COL) 1 ) , F( 5 ) , X) 1 ) , F( 6 ) ) ; 

IF  J— 0  THEN 

GET  FILE) SKWDOUT)  EDIT  (OVERFL(I))  (X(1),F(6)); 

ELSE  DO; 

GET  F  I  L  E  (  S  K WDOUT )  EDIT)  S  K WD  F (  I  ,  J  )  , COUNT (  I  ,  J  )  )  ) X(  1  )  , A(  1  2  )  ,X(  1  )  ,  F)  8  )  ) 
PTR  — NU  L  L  , 

GET  FILE) SKWDOUT)  SKIP. 


(X(l),F(6)); 


GET  FILE) SKWDOUT)  SKI 
DO  K  — 1  TO  COUNT) I , J ) ; 
ALLOCATE  INKWDREC, 
GET  F I LE) SKWDOUT ) 
NEXT  I NKWD— PTR  ; 

PTR— CURR _ I NKWD.PT . 
END ,  / •  END  DO  K  • / 

I  NK  WD  PT (  I  ,  J  ) —PTR  ; 

END,  / • END  ELSE  •/ 

END ,  /  *  END  WHILE*/ 

END  YQINIT, 


(  I NK  WD  F  ) 
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YQI'ARS  R  : 

I'HOC EDI  IR E  OmC)NS(  MAIN)  , 


PROJECT  REPORT  GENERATOR 

PROGRAMMER  DEPARTMENT  OF  COMPUTER  SCIENCE 

UNIVERSITY  OF  ILLINOIS 

FILENAME  QUERYPARSER  PLI 

LANGUAGE  PL/I  UNDER  CMS 

DEPEND ENC I ES  ACCESSDICTIONARY. PLI 

DATE  DECEMBER,  1084 

/ 


/♦  THIS  MODULE  IMPLEMENTS  THE  QUERY  PARSING 

IT  ANALYZES  THE  USERS  QUERY  AND  EXTRACTS  THE 
TARGET  ITEMS  AND/OR  THE  QUALIFYING  ITEMS  FROM  THE  QUERY 
(FOR  DETAILED  INFORMATION  SEE  THE  THESAURUS 
OF  USER  SEARCH  KEYWORDS  (TSK)  AND  STATE 
DIAGRAM  DESCRIBED  IN  THE  EXTERNAL  DOCUMENTATION.) 
THEN  THE  DATA  DICTIONARY  IS  ACCESSED  TO  OBTAIN 
THE  ACTUAL  DATABASE  NAMES  CORRESPONDING  TO  THESE 
ITEMS  WHICH  ARE  PASSED  TO  THE  DECISION  MAKER  */ 


DC  L 
DC  L 


DC  L 


DC  L 
DC  L 


NULL  BUILTIN; 

( SKWD, INKWD)  CHAR (12) 


I  N I T (  8  0  0) 


EXTERNAL , 


BUFS  Z  DEC  FIXED(  <) 

BUF (  BUFS  Z  )  CHAR (  1  )  . 

YES  BIT( 1 )  I N I T ( ’ 1 ’ B ) 

NO  BIT|  1  )  I N I T (  *  0  *  B  )  , 

MORE.Q  BIT( I )  STATIC 
MORE.WD  B I T ( 1 ) , 

WD  CHAR (12)  VARY  I  NG  . 

STATE  DEC  FIX  ED (  1  )  , 

FOUND  B I T ( 1 ) , 

QCON  BIT( 1 )  INIT(YES).  /*  CONTINUE 

( WPOS  , WEND  .  1  TEMPOS  ,  I TEMEND )  DEC  F  I  X  ED  (  3  )  , 

/*  WORD  POSITION;  WORD  END;  ITEM  POSITION 


USER  SEARCH  KEYWORD*/ 
INTERNAL  KEYWORD  */ 
BUFFER  SIZE  *  / 

INPUT  QUERY  BUF  P  ER  ♦/ 


MORE  LINES  IN  QUERY 
MORE  WORDS  IN  LINE  * 
TOKEN  OR  WORD  •/ 
STATE  OF  SYSTEM  •/ 


QUERY  I  NO 


) 


QL  ENG  DEC  F  I  X ED (  3 
ERR  DEC  PIXRD( I ) 

Y  ESORNO  CHAR  (  4  )  . 

PTR  POINTER 

HTBSIZE  DEC  FIXED  INI T(  1213), 
TBSIZE  DEC  FIXED  INIT(  1013)  , 

BK  SIZE  FIXED  INIT(4); 

1  HTABLE(0.  1212)  STATIC  EXTERNAL. 
2  TBL ( 4 ) . 

3  SKWDF  CH AR ( 12) . 

3  COUNT  DEC  FIXED  1NIT((12I3« 
3  I NK WD  PT  POINTER. 


ITEM  END 
LENGTH  OF  QUERY  •/ 
ERROR  FLAG  •/ 


HASH  TABLE  SIZE  ♦  / 
OVERFLOW  TABLE  SIZE 


BUCKET  SIZE 
HASH  TABLE- - 


1  / 


THESAURUS  */ 


4)0) 


USER  SEARCH  KEYWORD  •/ 


/  * 


TO  INTERNAL  KEYWORD  LIST 


2  OVERFL  DEC  FIXED  INIT(  (  1013)0) 


YSKWDL  BA S ED ( CURR . SKWD _ PT ) 
2  IKCOUNT  DEC  F  I  X  ED (  2  )  , 


DC  L  1 


2  I  K  PTR  PO  I  NT  ER  , 

2  NEXTSK  PO I  NTER  .  /* 

INKWDREC  BASED! CURR. INKWD.PT) 

2  1 NKWDF  CHAR( 12)  VARYING, 

2  NEXT  I  NKWD  POINTER, 

YTARGET  DASED( CURR_TARGET_PT ) 

2  STCOUNT  DEC  FIXED) 2) , 


USER  SEARCH  KEYWORD  •/ 
NUMBER  OF  ASSOCIATED  */ 
INTERNAL  KEYWORDS  •/ 

NEXT  INTERNAL  KEYWORD  •/ 


NEXT  USER  SEARCH  KEYWORD  •/ 


I  B) 


2  MATCH  B I T  (  1  )  I N I T  ( 

2  STGPTR  PO I NTER , 

2  NEXTTQ  POINTER. 

YQUA  L  I  BASED!  CURR_QUAL  I  _  PT  ) 
2  SQCOUNT  DEC  F  I  X  ED (  2  )  . 


INTERNAL  KEYWORD  RECORD*/ 
INTERNAL  KEYWORD  NAME  •/ 
NEXT  I  NT  ER  N A  L  KEYWORD  *  / 
NODE  OF  TARGET  ITEM  LIST*/ 
NUMBER  OF  ASSOCIATED  •/ 
INTERNAL  KEYWORDS  •/ 


( TGHEAD 


QVALIIP.II  CHAR  (12). 
QVALIIKfl  CHAR  (12). 
MATCH  I)  I  T  (  1  )  I  N  I  T  ( 
S  QU  PTR  POI  NTER  , 
NEXTQU  POINTER. 


TO  INTERNAL  KEYWORD  LIST  ' 
NEXT  TARGET  ITEM  •/ 

NODE  OF  QUALIFIER  LIST  •/ 
NUMBER  OF  ASSOCIATED  •/ 


I  NT  ER  N A  L  KEYWORDS  ' 
QUALIFIER  VALUE  •/ 


/ 


1  ’  B) 


( TCOUNT 


QUHEAD ) 

/  ’ 

QCOUNT ) 


PO I NTER 
HEAD  OF 


STAT  I  C 
TARGET 


DEC  FIXED!  2  > 


/*  TO  INTERNAL  KEYWORD 
/*  NEXT  QUALIFIER  ITEM 
EXTERNAL . 

AND  QUALIFIER  ITEM  LIST 
/•  NUMBER  TARGET  ITEMS 


LIST 

•  / 
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/•  NUMBER  QUALIFIER  ITEMS  •/ 
DCL  SKHEAD  POINTER;  /•  HEAD  OF  USER  SEARCH  KEYWORD  LIST  •/ 

DC  L  HEAD  POINTER  STATIC  EXTERNAL; 

/•  HEAD  TO  LIST  OF  ACTUAL  DATABASE  ITEM  NAMES  ♦/ 
DCL  CAT  PTR  POINTER  STATIC  EXTERNAL;  /•  CATACORY  PTR  •/ 

DCL  TMEM  CHAR (40)  STATIC  EXTERNAL; 

/•  TARGET  MEMBER  -*  SINGLE  KEYWORD  FROM  FORMAT  •/ 
DCL  1  CATREC  B A S ED ( C AT PTR ) ,  /•  NODE  OF  CATACORY  LIST  •/ 

2  CATMEMN  CHAR( 32) ,  /•  CATAGORY  MEMBER  NAME  •/ 

2  CATMEMT  CHAR ( 3 2 ) ,  /•  CATAGORY  ITEM  NAME  •/ 

2  CATNEXT  POINTER;  /•  NEXT  CATAGORY  •/ 

DCL  2ACSD3  ENTRY  EXTERNAL;  /•  DATA  DICTIONARY  MODULE  •/ 

DCL  FORMLEN G  DEC  FIXED) 2)  INIT( 40) ,  /•  FORMAT  LENGTH  •/ 

F  OR  MWD (60)  CHAR (  FORMLENG )  VARYING  I  N I T  (  (  B 0  )  ’  ’  )  ; 

/•  KEYWORD  FORMAT  FOR  DICTIONARY  ACCESS  ♦/ 

DCL  NOTG  DEC  F  I  X ED (  1  )  INIT(l).  /*  NO  TARGET  ITEM  •/ 

NOTITEM  DEC  F I  X ED (  1  )  IN1T(  2)  , 

/•  TARGET  ITEM  HAS  NO  DATA  ITEM  */ 
NOQITEM  DEC  F  I  X  ED (  I  )  INIT(3), 

/•  QUALIFIER  ITEM  HAS  NO  DATA  ITEM  •/ 
MISQUP  DEC  FIXED( 1)  INIT(4), 

/•  QUALIFYING  ITEM  PART  MISSING  •/ 
MISQUV  DEC  FIXED) 1 )  INIT(6),  /•  QUALIFIER  VALUE  MISSING  */ 

I LGCHR  DEC  FIXED! 1)  INIT(fl);  /♦  ILLEGAL  CHARACTER  •/ 


. . . . / 

•  MAIN  PROCEDURE  •/ 

. . . . 

CALL  INTRO; 

DO  WHILE! QCON ) . 

CALL  INITQ. 

CALL  NEWTG, 

MOR  E_Q— QUERY  I  N , 

MORE.WD- MORE.Q , 

QCON-MORE.Q ; 

STATE— 0 . 

DO  WHI LE(MORE.WD) , 

WD— GETWD  ; 

IF  WD- 1  ‘  THEN  MORE.WD-NO; 

ELSE  DO. 

SELECT! STATE) ; 

WHEN ( 0 )  DO ; 

I T EMEND— WEND  . 

S  ELECT  ; 

WHEN ( CKWD ( WD ) )  DO; 

STATE— 2 ; 

I  TEMPOS— WPOS  ; 

END  . 

WHEN !  EQU !  WD  )  )  ; 

WHEN(  CON J  (  WD  )  )  ; 

OTHERWISE  DO. 

I T  EMPOS— WPOS  ; 

STATE— 1 ; 

END  ; 

END.  / *  END  SELECT  •/ 

END  ;  / •  END  0  •  / 

WHEN ( 1 )  DO ; 

I T EMEND— WEND ; 

IF  ( CKWD ( WD ) )  THEN  DO; 

STATE— 2 ; 

I T  EMPOS— WPOS  , 

END  , 

ELSE  IF  ( CON  J (  WD  )  OR  QU A L I F  I  ER (  WD )  )  THEN  DO 
CALL  ME  S  G (  NOT  ITEM,  ’  ’  .  I  TEMPOS  ,  I T EMEND )  . 

IF  ( QUAL I F I ER ( WD ) )  THEN  DO; 

STATE-3 , 

CALL  NEWQU , 

END  ; 

END  ; 

END  ; 

WHEN! 2 )  DO . 

S  ELECT  . 

WHEN! CON J ( WD ) )  DO, 

S  TATE  —  0  ; 

TGHEAD- >STGPTR— SKHEAD , 

CALL  ACSDD( 1 ) , 

CALL  NEWTG. 


END  . 


WHEN( QUAL  I F I ER (  WD  J  )  DO; 

STATE— 3 ; 

TGHEAD- >STGPTR— SKHEAD ; 

CALL  ACSDD (  1  )  ; 

CALL  NEWQU; 

END  ; 

OTHERWISE  DO; 

I T EMEND— WEND ; 

IP  (CKWD(WD) )  THEN  DO; 

TGHEAD -  >STCOUNT— TGHEAD -  >S  TCOU  NT  + I  ; 

END  ; 

END  ; 

END  ; 

END  ; 

WH  EN (  3  )  DO ; 

IP  { TCOUNT-O )  THEN  DO; 

CALL  ME SG (  NOTG ,  *  ’  ,0,0)  ; 

END  ; 

ELSE 
SELECT ; 

WH  EN ( CON  J  (  WD  )  )  ; 

WH  EN  (  EQU(  WD  )  )  , 

WHEN(  CKWD  (  WD  )  )  DO  ; 

STATE-6 ; 

I  TEMPOS— WPOS  ; 

I TEMEND-WEND  ; 

END  ; 

OTHERWISE  DO; 

STATE— 4 ; 

I  TEMPOS  —WPOS  ; 

I TEMEND— WEND  ; 

END  ; 

END;  /♦  END  SELECT  •/ 

END  ;  /  *  END  3  •  / 

WH  EN (  4  )  DO  ; 

S  ELECT  ; 

WHEN(  EQU(WD)  )  CALL  ME S G (  NOQ I T EM ,  WD  ,  I T EMPO S  ,  I T EMEND )  ; 
WHEN( CON J ( WD ) )  CALL  ME S G ( M I S QU P , ’ ’ , I T EMPO S , I T EMEND ) ; 
OTHERWI  S  E  DO ; 

IF  (CKWD(WD) )  THEN  DO; 

STATE— 6 , 

END  ; 

I TEMEND— WEND , 

END;  /•  END  OTHERWISE4/ 

END;  /•  END  SELECT  •/ 

END;  /•  END  WHEN( 4)  •/ 

WH  EN (  6  )  DO ; 

IP  EQL(WD)  THEN  DO, 

STATE— ft , 

QUHEAD- >SQUPTR— SKHEAD ; 

CALL  ACSDD ( 2 ) ; 

END  ; 

ELSE  IP  (CONJ(WD))  THEN 

CALL  MESG(  Ml  SQUV  ,  ’  ’  ,  I  TEMPOS  ,  I TEMEND )  ; 

ELSE  DO; 

I TEMEND— WEND ; 

IP  (CKWD(WD))  THEN  DO; 

QUHEAD- >SQCOUNT— QUHEAD - >SQCOUNT+l ; 

END  ; 

END;  /•  END  ELSE  •/ 

END;  /•  END  WHEN(6)  •/ 

WH  EN {  ft  )  DO ; 

l  P  (  CON  J (  WD )  )  THEN 

CALL  MESG(  Ml  SQUV  ,  ’  ’  ,  I  TEMPOS  ,  I TEMEND )  ; 

ELSE  IP  (NOT  EQL(WD))  THEN  DO; 

QUHEAD-  >QV  ALU  EU— WD  . 

STATE— 7 ; 

END  ; 

END,  /•  END  WHEN ( ft )  •/ 

WH  EN (  7  )  DO ; 

CALL  NEWQU, 

IF  CONJ(WD)  THEN  STATE-3, 

ELSE  DO; 

I  TEMPOS— WPOS  , 

IP  (CKWD| WD) )  THEN  DO, 

STATE— 6 , 

END  , 

ELSE  STATE-4 ; 

END,  /•END  ELSE  •/ 

END.  /•  END  7  •/ 

END  .  /  •  END  S  ELECT  • / 


END ,  / •  END  ELSE  * / 

END;  /‘END  WHILE  MORE.WD  •/ 

IP  (MORR.Q)  THEN  DO; 

S  ELECT , 

WHEN| STATE-0)  DO. 

TGHEAD-TGHEAD*  >N  EXTTG  ; 

TCOUNT — T COUNT  -  1  ; 

IF  ( TCOUNT— 0 )  THEN  DO, 

CALL  MESG(NOTG,  '  ’  ,0,0)  ; 

END  ; 

END  , 

WHEN ( STATE— 1 )  DO 

CALL  MESG  (  NOT  I T  EM.  ‘  .  I  TEMPOS  .  I T EMEND  )  , 

TGHEAD-TGHEAD -  >N  EXTTG  , 

TCOUNT— TCOUNT - 1 ; 

I  F  (  TCOUNT— 0  )  THEN  CALL  ME  S  G (  NOT  G  ,  ‘  1  .  0  ,  0  )  ; 

END  , 

WHEN( STATE-2)  DO. 

TGHEAD*  >STGPTR— SKHEAD  , 

I T EMEND— WEND  ; 

CALL  ACSDD( 1 ) ; 

IF  ( STATE— 0 )  THEN  DO; 

TCOUNT— TCOUNT  -  1  ; 

TGHEAD-TGHEAD-  >N EXTTG  , 

END  , 

IF  (  TCOU  NT  —0  )  THEN 

CAL L  MESG (  NOTG  ,  "  ,0,0)  ; 

END  , 

WHEN| STATE-3  OR  STATE-4)  DO, 

IF  (STATE— 4)  THEN  CALL  MESG(  Ml  SQUP ,  ‘  '  ,  I  TEMPOS  ,  I TEMEND )  , 

QUHEAD— QUHRAD - >NEXTQU ; 

QCOUNT— QCOUNT  -  1  . 

END  ; 

WHEN  (  STATE  — 6  OR  STATE  — 6)  DO, 

CALL  MESG(  Ml  SQUV  ,  ’  *  ,  I  TEMPOS  .  I TEMEND )  , 

QUHEAD-QUHEAD-  >N  EXTQU  ; 

QCOUNT- QCOUNT -  I  ; 

END  . 

WH  EN (  STATE— 7  )  , 

END;  /•  END  SELECT  •/ 

IF  (ERR-0)  THEN  QCON-NO; 

ELSE  IF  (ERR  NE  1)  THEN  DO. 

PUT  EDIT  (DO  YOU  WANT  TO  CONTINUE  THIS  QUERY!  ) 

( COL ( 1 ) , A ) , 

CALL  YORN  (YESORNO); 

IF  YESORNO  —  ‘YES’  THEN  QCON-NO. 

ELSE  DO ; 

PUT  SKIP. 

PUT  SKIP; 

PUT  SKIP  ED  I T (  'REPORT  GENERATOR  EXITED  AT  USER  '  ’  S  REQUEST’  )  (A) 
STOP  . 

END  ; 

END;  /*  END  ELSE  •/ 

END;  /•  END  WHILE  QCON  •/ 

END;  /*  END  IF  MO  RE_Q* / 


/ . . . 4 . * . 444 . / 

/  4  •/ 

/•  PROCEDURE  INITQ  •/ 

/4  •/ 

/♦  PURPOSE  THIS  PROCEDURE  INITIALIZES  THE  VARIABLES  •/ 

/•  FOR  THE  QUERY  PARSER  •/ 

/*  */ 

/ . . . . . * . . . . . / 


INITQ 

PROCEDURE . 
QCON— YES ; 
TGHEAD— NULL . 
QUHEAD— NULL . 
TCOUNT— 0 . 
QCOUNT— 0 , 
ERR-NO . 

END  INITQ. 


. . . . / 

/  *  4  / 

/•  PROCEDURE  NP.WTG  •/ 

4  / 
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/*  PURPOSE  THIS  PROCEDURE  ADDS  A  NEW  TARGET  ITEM  •/ 

/«  TO  THE  CURRENT  LIST  OP  TARGET  ITEMS  •/ 

/*  V 

/ . . 


NEWTC 

PROCEDURE , 

ALLOCATE  YTARGF.T: 

CURR.TARGET.PT- >NEXTTG— TGHEAD I 
TCOUNT— TCOUNT+ 1 , 
TGHEAD-CURR_TARGET.PT ; 

TGHEAD- >STCOUNT— 1 ; 

TGHEAD- >STGPTR— NULL ; 
SKHEAD-NULL ; 

END  NEWTG. 


/ . . . . . . . 

/  * 

/«  PROCEDURE  NEWQU 

/  * 

/»  PURPOSE  THIS  PROCEDURE  ADDS  A  NEW  QUALIFIER  ITEM 

/«  TO  THE  CURRENT  LIST  OP  QUALIFIER  ITEMS 

/  * 

/ . *  * . . . . . 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


NEWQU 

PROCEDURE , 

ALLOCATE  YQUALI ; 

CURR.QUAL  I  _  PT -  >N EX TQU— QUH E A D  , 
QCOUNT— QCOUNT+  l  ; 

QUH  EAD-CURR .QUAL I  .PT, 

QUHEAD- >SQCOUNT-l ; 

QUH BAD • >SQUPTR-NULL ; 
SKHEAD-NULL ; 

END  NEWQU , 


/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 


PROCEDURE : 
PURPOS  E  : 


. * . . . ..•/ 

*/ 

CONS  L  */ 

*/ 

THIS  FUNCTION  CONVERTS  LOWER  CASE  LETTERS  •/ 

TO  UPPER  CASE  LETTERS  •/ 

*/ 

. . . . . 


CONS  L  : 

PROCEDURE!  OH R  |  RETURNS  (  CIIAR(  1  )  )  ; 
DC  L  CHR  CHAR (  1)  , 

S  EL  EOT (  CHR  )  . 


WHEN  ( 

*  A 

) 

RETURN! 

*  A  ’ 

WHEN  ( 

’  B 

) 

RETURN! 

1  B  * 

WHEN( 

’  C 

) 

RETURN! 

1  C  ’ 

WHEN  ( 

*  D 

i 

RETURN  ( 

1  D  ’ 

WHEN  ( 

*  E 

) 

RETURN! 

•  E  ’ 

WH  EN  ( 

•  F 

) 

RETURN  ( 

•  p  • 

WHEN  ( 

’  G 

i 

RETURN/ 

1  G  * 

WH  EN  ( 

*  H 

> 

RETURN! 

•  H 

WHEN! 

•  I 

i 

R  ETURN ( 

•  I  * 

WH  EN  ( 

*  J 

i 

R  ETURN ( 

y  ' 

WHEN  ( 

’  K 

i 

R  ETURN ( 

'  K  * 

WHEN  ( 

’  L 

i 

RETURN! 

*  L  ' 

WH  EN  ( 

•  M 

i 

RETURN! 

1  M* 

WH  E  M  ! 

'  N 

R  ETURN( 

‘  N  * 

WHEN  ( 

*  O 

i 

RETURN! 

•  o  • 

WHEM( 

’  P 

i 

RETURN! 

.  p  . 

WHEN  ( 

’  Q 

> 

R  ETURN ( 

*  Q  * 

WHEN  ( 

•  R 

i 

R  ETURN! 

*  R  ’ 

WHEN  \ 

•  S 

i 

R  ETURN ! 

*  s  • 

WH  EN  ( 

.  T 

i 

RETURN ( 

'  T  ' 

WH  EN  ( 

•  u 

i 

RETURN! 

•  U  * 

WHEN  ( 

•  V 

i 

RETURN! 

•  V  ' 

WH  EN  ( 

W 

i 

R  ETURN  ( 

•  w  ■ 

WHEN  ( 

■  X 

i 

RETURN  [ 

•  X  ' 

WH  EN  ( 

’  V 

i 

RETURN  ( 

•  Y  ■ 

WHEN  ( 

•  2 

) 

RETURN! 

•  Z  • 

OTHER 

W  1 

E 

RETURN* 

CHR 

END  , 
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/  «■ 


END  CONS  L  ; 


/• 
/• 
/  * 
/* 
/  * 
/* 
/* 
/  * 
/  * 
/  * 
/* 
/* 
/  * 
/  * 


PROCEDURE  QUERYIN 

PURPOSE:  THIS  FUNCTION  PROMPTS  THE  USER  TO  ENTER  A 

QUERY.  IT  READS  THE  QUERY  IN  ONE  CHARACTER 
AT  A  TIME  CONVERT  I  NO  IT  TO  UPPER  CASE  AND 
PL AC  I NG  EACH  INTO  A  BUFFER  IT  RETURNS  A 
FLAG  INDICATING  WHETHER  A  QUERY  WAS 
ENTERED 

■O'  --  NO  QUERY  OR  REQUEST  TO  EXIT 

'  1  '  -  -  A  QUERY  WAS  ACCEPTED 


*  / 

V 
*  / 
*/ 
*  / 
*  / 

V 
*/ 
*  / 
*  / 
*/ 
*/ 
*  / 
*  / 


QUERY  1 N 

PROCEDURE  RETURNS ( Bl T( I )) ; 

DC  L  l  CHR  , 

2  C (  *  0  )  CHAR (  1  )  , 

DC  L  LR  EC  CHAR (  80)  DEFINED  CHR; 

DC  L  I  TEMP  I  N I T  (  0  )  ; 

BUF  — '  ; 

LR  EC— '  I  ‘  ; 

I  —0  ; 

PUT  SKIP, 

PUT  EDIT  ('ENTER  THE  INITIAL  QUERY')  ( COL ( 1 ) , A ) , 

DO  WH I  L  E (  LR  EC  NE  (80)''); 

GET  EDIT(LREC)  |A(I0|); 

IF  ( LREC  NE  (80)'  ')  THEN 

DO  ; 

I  TEMP— 1  *80; 

DO  J— I  TO  80; 

IF  (C(J)  GE  'A'  *  C(J)  LE  'Z')  THEN 

BUF (  J  +  1  TEMP ) — CONSL  (  C(  J  )  )  ; 

ELSE 

BUF (  J  +  I  TEMP ) — C  (  J  )  ; 

END,  /‘END  DO*/ 

I  — I  +  1  . 

END.  /•  END  THEN  «/ 

END ;  / •  END  WHILE  * / 

QLENG-I TEMP+  8  0  ; 

IF  (BUF(I)  CAT  BUF ( 2 )  CAT  BUF ( 3 )  CAT  BUF ( 4 )  —  ' ENDQ '  OR  1  —  0 ) 

THEN  RETURN( ' 0 ' ) . 

ELSE  RETURN)  '  I  '  )  ; 

END  QUERYIN; 


/ . . 

/♦  */ 

/•  PROCEDURE  GETWD  •/ 

/•  */ 

/•  PURPOSE  THIS  FUNCTION  DETERMINES  AND  RETURNS  THE  •/ 

/•  NEXT  WORD  OR  TOKEN  IN  THE  QUERY  BUFFER  */ 

/*  I F  NO  'NEXT'  WORD  EXISTS  THE  NULL  STRING  •/ 

/ •  IS  RETURNED  .  •  / 

/•  •/ 

/ . . . . . . . 


GETWD 

PROCEDURE  RETURNS ( CHAR ( 1 2 )  VARYING), 

DC  L  FLAG  B ! T (  1  )  INIT(YES), 

WD  CHARI  12)  VARYING  INIT(’  ), 

WTEMP  ClIARf  12)  VARYING  !NIT(  ’  '  )  , 

1  DEC  F I  X  ED (  3  )  STATIC  INIT(l), 

WS  TATE  DEC  F I  X  ED (  I  )  STATIC  INIT(I). 

I LN  DEC  P I XED ( I ) ; 

DO  WHIIE(  P LAG )  ; 

S  EL  ECT (  WS  TATE)  , 

WHEN ( 1 )  DO , 

DO  WHILE  (I  LE  BUFSZ  AND  D EL M(  BU F  {  I  )  )  )  . 

I  — I  +  I  , 

END  . 

IF  (I  GT  BUFSZ)  THEN  DO. 

I  —  I  , 

F  LAG— NO . 
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s  % 


WHEN(  2  ) 


END  . 

BI.SR 
S  ELECT . 

WHEN  (  Cl! It  1  NWD  (  BUF  (  I  )  )  )  WSTATE-2  ; 

WHEN  (  EQU(  BUF (  I  )  )  )  WSTATE-3; 

WHEN  ( COMMA ( BUF ( I ) ) )  WSTATE— 4; 
OTHERWISE  WSTATE-S ; 

END;  /•  END  SELECT  ♦/ 

END;  / • END  WHEN( 1 )•/ 

DO  , 

FLAG-NO ; 

WPOS— I ; 

DO  WH ! LR( I  LE  BUPSZ  AND  CHR I NWD ( BUF ( I ) ) ) 
WD— WD  CAT  BUF  (  I  )  ; 

I  — !  +  1  ; 


END  ; 

IF  (I  LE  BUPSZ ) 

ELSE  WEND  — I  ; 
IF  (I  GT  BUF  S  Z  ) 

I  -1  ; 

WSTATE— 1 ; 


THEN  WEND— I  -  1 


THEN  DO; 


/  1 


END  I  F  « 


END  ; 

ELSE 
S  ELECT 
WHEN 
WHEN 
WHEN 
OTIIERWI  S  E 
END  ,  /  #  END 


(  DELM(  BUF (  1  )  )  )  WSTATE— 1 
(  EQU(  BU F (  I  )  )  )  WSTATE-3  ; 
(  COMMA (  BUF  (  I  )  )  ) 

WSTATE— 6 ; 

SELECT  ♦/ 


WSTATE— 4 , 


WH  EN (  3  ) 


END ; / ‘WHEN ( 2 ) • / 

DO  , 

FLAG— NO ; 

WD— WD  CAT  BUF  (  1  )  ; 

I -l  +  1  ; 

IF  [  I  GT  BUFSZ)  THEN  DO; 

I  — 1  ; 

WSTATE— 1 ; 

END  ; 

ELSE 
S  ELECT . 

WHEN  ( DELM( BUF ( I ) ) )  WSTATE-1; 
WHEN  ( CHR I NWD ( BUF ( I ) ) )  WSTATE-2; 
WHEN  ( EQU< BUF ( I ) ) )  WTATE-3; 

WHEN  ( COMMA ( BUF ( I ) ) )  WSTATE-4; 
OTHERWISE  WSTATE— 6 ; 


/  ' 


/* 


END  SELECT 
WH  EN (  3  )  •  / 


BUF (  I  ) 


THEN  DO; 


WSTATE-4 , 


END 
END  ; 

WHEN! 4 )  DO ; 

F  LAG— NO ; 

WD— WD  CAT 
I  — I  +  I  ; 

IF  (I  GT  BUF  S  Z  ) 

I  -1  . 

WSTATE— I , 

END  , 

EL  S  E 

S  ELECT . 

WHEN  (CELM( BUF{ I ) ) )  WSlATE-1; 
WHEN  ( CHR I NWD ( BUF ( I ) ) )  WSTATE 
WHEN  (  EQU(  BU  F (  I  )  )  )  WSTATE-3  ; 
WH  EN(  COI/1MA  (  BUF  (  I  )  )  ) 

OTHERWISE  WSTATE— 5 
END,  / *  END  SELECT  * / 

END  ;  / *  WHEN  (  4  )  • / 

WHEN ( 6 )  DO ; 

LE( I  LE  BUFSZ 
( STATE  —6 )  THEN 
WTEMP— BUF  (  1  )  ; 

CALL  MESG(  I  LOCHR  ,  WTEMP 
END  . 

I  —  1  t  1  ; 

END  . 

IF  (I  GT  BUFSZ) 

WSTATE— 1 . 

I  —  1  ; 

END,  / •  END  IF  •/ 

ELSE 
S  ELECT  , 

WHEN  ( DELM(  BUF  (  I  )  )  ) 

WHEN  ( CHR I NWD  (  BUF  (  I 


DO 


WH  I 
I  F 


AND  NOT 
DO  , 


LEGALCHR (  BUF (  I  )  )  ) 


l  +  1  ) 


THEN  DO, 


WSTATE-1 ; 

)  )  )  WSTATE-2 
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END  ; 

WHEN  (  EQU (  BUF (  I  )  )  )  WS  T  ATE-3 
WHEN  (  COMMA  (  BUF  (  I  )  )  )  WS  T  ATE- 
OTHER  Wi  S  E  , 

END  ; 

/•  END  SELECT  S  •/ 

END  ,  /  • 

END  SELECT  •/ 

END 

/  •  END 

WHILE  * / 

R  ETURN (  WD )  , 

END 

G  ET  WD  ; 

/ . . 

/•  •/ 

/•  PROCEDURE  CHRINWD  */ 

/*  */ 

/•  PURPOSE:  THIS  FUNCTION  CHECKS  IF  A  GIVEN  CHARACTER  •/ 

/•  IS  A  LEGAL  ALPHA-NUMERIC  CHARACTER  OR  */ 

/*  AN  • _ 1  */ 

/*  */ 

/ . . 


CHR I NWD 

PROCEDURE  (  Cl!  R  )  RETURNS  (  R  I  T  (  1  )  )  ; 

DO  L  CHR  CHAR (  I  )  ; 

RETURN! CHR- '  OR  (CHR  GE  'A1  AND  CHR  LB  Z')  OR  (CHR  GE  ’O’  AND 
CHR  LE  ’O')), 

END  CHR I NWD . 


/ . * . / 

/*  »/ 

/•  PROCEDURE:  DELM  */ 

/*  V 

/*  PURPOSE:  THIS  FUNCTION  CHECKS  IF  A  GIVEN  CHARACTER  •/ 

/*  IS  A  DELIMITER,  I.E  A  BLANK  •/ 

/  4  4  / 

/ . * . / 


DELM 

PROCEDURE ( CHR )  RETURNS! B I T ( I ) ) . 
DC  L  CHR  CHAR (  I  )  , 

RETURN! CHR-'  ' ) , 

END  DELM, 


/  4  4  4  4  4  4 . . . . 

/  * 

/*  PROCEDURE  EQU 

/  * 

/*  PURPOSE  THIS  FUNCTION  CHECKS  IF  A  GIVEN  CHARACTER 

/♦  IS  AN  EQUAL  SIGN,  —  ' 

/  * 

/ . . . . . . . 


4  / 
4  / 
4  / 
4  / 
4  / 
4  / 
4  / 
4  / 


EQU  : 

PROCEDUR  E<  CHR  )  RETURNS  (  B I T (  1  )  )  ; 
DC  L  C1IR  CHAR  (  1  )  , 

RETURN!  CHR-'  — '  )  ; 

END  EQU , 


/444444 . . . . . . . . 

/  4  4  / 

/•  PROCEDURE  COMMA  •/ 

/  4  4  / 

/•  PURPOSE  THIS  FUNCTION  CHECKS  IF  A  GIVEN  CHARACTER  •/ 

/  •  ISA  COMMA  ,  * / 

/*  4/ 

/  4  4  4 . 4  .  4  4  4 . 4  4  4  4  4 . 4  .  4  .  4  . / 


COMMA 

PROCEDURE! CHR )  R ETU R N S ( B I T ( l ) ) , 
DC  L  CHR  CHAR (  1  )  ; 

RETURN! CHR—' , ' ) , 

END  COMMA , 
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PROCEDURE 


LEGALCHR 


PURPOS  E 


THIS  FUNCTION  CHECKS  IF  A  GIVEN  CHARACTER 
IS  AN  ALPHANUMERIC  OR  ONE  OF  THE  FOLLOWING: 
A  ‘  •  .  A  *  — #  OR  A  •  ,  *  . 


LEGALCHR 

PROCEDURE!  CHR )  RETURNS {  B  I  T (  I  )  )  , 

DC  L  CHR  CHAR (  1  ) 

R ETURN ( CHR I NWD ( CHR )  OR  DELM(CHR)  OR  EQU ( CHR )  OR  COMMA ( CHR ) ) 
END  L  EGA  LCIIR  ; 


PROCEDURE 


PURPOS  E 


THIS  FUNCTION  SEARCHES  THE  DATA  DICTIONARY, 
A  HASH  TABLE,  FOR  THE  SPECIFIED  WORD  IT 
RETURNS  A  FLAG  INDICATING  ITS  PRESENCE 
•YES’  OR  *  I  *  -•  WORD  FOUND 

•NO’  OR  ’O’  --  NOT  IN  TABLE 


CKWD 

PROCEDURE! STR )  R ETUR N S ( B I T ( 1 ) ) ; 
DC  L  STR  CIIAR(  12)  VARYING. 

SKWD  CHAR (12). 

TMPTR  PO INTER. 

FLAG  BIT( 1 )  INIT(l’B); 


I  NDX-MOD (  H A  S  HP !  STR )  .  1013)  ; 

SKWD-STR ; 

DO  WH I  LE|  F  LAG )  ; 

I  —  1  ; 

DO  WHILE!!  L  E  4  )  , 

IF  (  COUNT (  I  NDX  .  I  ) — 0  )  THEN  R  ETURN (  NO )  , 

ELSE  DO; 

IF  (  SKWDF I  I  NDX  .  I  ) -SKWD )  THEN  DO. 

ALLOCATE  YSKWDL. 

CURR  _  S  K WD  _  PT -  >N EX T S K -S KH E A D  . 
SKHEAD— CURR „ SKWD  _  PT  , 

SKHEAD-  >1 KPTft-l  NK WD  PT (  1  NDX  .  I  ) 
SKHEAD -> I KCOUNT— COUNT ( I NDX . 1 ) 
RETURN ( YES ) . 

END.  /♦  END  IF  THEN  •/ 

ELSE  I -I + 1 . 

END,  /•  END  ELSE  IF  COUNT-NE  ’OB  •/ 

END;  /•  END  WHILE  I  LE  4  •/ 

IF  ( OVERF L ( I NDX ) — 0 )  THEN  RETURN(NO), 

ELSE  1  NDX— OVERF L  !  I  NDX  )  , 

END;  /•END  WHILE  FLAG  •/ 

END  CKWD . 


PROCEDURE 


PURPOS  E 


FUNCTION  CONVERTS  A  CHARACTER  TO 
INTERNAL  NUMERIC  REPRESENTATION 


CON  V 

PROCEDURE!  CHR  )  RETURNS  (  D  EC  F  I  X  El>  (  3  ,  0  )  ) 
DC L  CHR  CHAR ( l ) . 

RETURN!  HNS  PEC (  CHR  )  )  . 

FND  CO  N V  , 


PR OC ED UR  E 


V 


v-V 

W"  mm 


8 


t’vyr 

vN'  * 


%  v 


,r*.t 


ra,  n*,  ■■ |K  « >  ■  ^  ^  M  fa  Jl  J  *»  *M  »  *  a  9  m  *  jk  '  m  *  •  *  *  •  •  **  .■  /  *  *•  ■ 


*  -  -  - 


»T  iTlTn 


PURPOS  E : 


/• 

/  * 
/* 
/* 
/♦ 
/• 
/* 
/*• 


THIS  FUNCTION  CALCULATES  AND  RETURNS  THE 
INDEX  INTO  THE  HASH  TABLE  FOR  THE 
SPECIFIED  WORD  (THE  DETAILS  OF  THE 
HASHING  FUNCTION  USED  CAN  BE  FOUND  IN 
TIIE  EXTERNAL  DOCUMENTATION  ) 


•/ 
*  / 
•  / 
*  / 
*/ 
•  / 
*/ 
'•/ 


HASHF : 

PROCEDURE! STR )  RETURNS  (DEC  FIXED) 12)), 

DC  L  I  ND  DEC  F I  X  ED (  3  ,  0  )  . 

STB  CHAR (12)  VARYING. 

POS  DEC  F  1  X  ED (  2  )  INIT(T)  STATIC  , 

LNG  DEC  F I  X  ED (2.0). 

LNG— LENGTH ( STR ) . 

I F  ( LNG— 0 )  THEN 
RETURN! 0 ) , 

ELSE 

RETURN(HASHF(  SUBSTRI  STR  ,  1  ,  l.NG-  I  )  )  •POStCONV(  SUBSTRI  STR  ,  LNG,  1  )  )  ) 
END  HASHF ; 


/*■ 

r 

/  • 

/• 

/  ♦ 

/  • 

/  • 

/  • 

/  •  * 


PROCEDURE 


QUAL I P I ER 


PURPOSE 


THIS  FUNCTION  DETERMINES  IF  THE  SPECIFIED 
WORD  IS  ONE  OF  THE  RESERVED  WORDS 
•WITH',  •WHERE',  OR  FOR 


QUALIFIER 

PROCEDURE!  STR )  R ETU R N S (  B I T  (  1  )  ) 
DC  L  STR  CHAR(  12)  VARYING; 


RETURN) STR-' WI TH '  OR  STR— 'WHERE'  OR  STR— 'FOR'). 
END  QUALIFIER; 


/•' 

/  * 
/* 

/  * 

/  * 

/  * 

/  * 
/*' 


PROCEDURE 


EQL 


PURPOS  E : 


TH  I  S 
WORD 


FUNCTION  DETERMINES  IF 
IS  ' — • ,  'IS'  OR  'ABE' 


THE  S  PEC  I  F  1  ED 


EQL  : 

PROCEDURE!  STR )  R ETUR N S (  B 1 T  (  1  )  )  ; 

DC  L  STR  CHAR!  !2|  VARYING; 

RETURN!  STR— ' OR  STR— 'IS'  OR  STR  — 'ARE'), 
END  EQL ; 


/  * 
/  * 
/  * 
/  * 
/‘ 


PROCEDURE 


CON  J 


PURPOS  E : 


TH  I  S 
WORD 


FUNCTION  DETERMINES 
IS:  ' AND ' . 


IF  THE  SPECIFIED 


C  ON  J  : 

PROCEDURE)  STR )  R ETURNS (  B I T  (  I  )  )  . 
DC  L  STR  CHAR (12)  VARYING; 

RETURN)  STR— ’ AND  1  OR  STR—’,’); 

END  CON  J  , 


PROCEDURE 


YORN 


PUR  ros  E 


THIS  PROCEDURE  PROMPTS  THE  USER  TO  INPUT 
•YES'.  ' NO '  OR  'QUIT' 
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•  / 
•  / 
•  / 
•  / 
•  / 

*  t 

•  / 


■*/ 

•  / 
•  / 
*  / 
•  / 
•  / 
•/ 


*  / 
•  I 


/ 

*  / 
•  / 
*  / 

'*/ 


Si 

vvv] 


•VsWOl 


YORN:  PROCEDURE  (YN), 

DC  L  YN  CHAR (  4  )  , 

YN  —  *  •  ; 

DO  WHILE  (((YN  NE  YES') 
DISPLAY  (TYPE  YES/NO 
END;  /•DO*/ 

IF  YN  —  'QUIT'  THEN 
BEG  I N ; 

PUT  SKIP 
PUT  SKIP 

PUT  SKIP  EDIT  (  REPO 


)  (  YN  NE  ’  1 

REPLY ( YN ) 


( YN  NE  ’QUIT')); 


(  REPORT  GENERATOR  EXITED  AT  USER 
(  A  )  ; 


REQUEST  *  ) 


STOP  , 
END  ; 

END  YORN; 


PROCEDURE 


PUR  TOS  E 


THIS  PROCEDURE  DISPLAYS  THE  APPROPRIATE 
ERROR  OR  WARNING  MESSAGE  ON  THE  USER'S 
TERMINAL  SCREEN 


ME  S  G 

PROCEDURE!  ER R  COD  E .  WORD  ,  WDGGIN,  WEND )  ; 

>CL  ERRCODE  DEC  FIXED( 1 } , 

WTMP  CHAR ( 20)  VARYING, 

WORD  CHAR( 12)  VARYING, 

(  WURG I  N .  WEND  .  I  BEG  I  N .  I  END )  DEC  F  I  X  ED (  3  )  . 

ER R CON  CHARI  20)  VARYING,  /*  CONTfc'NTS  CONTAIN  ERROR  PART 
ETYPE  Cl!  A  R  (  0  )  VARYING,  /•  MESSAGE  TYPE  •/ 

MSG  CHAR (60)  VARYING,  /‘CONTENTS  OF  MESSAGE  •/ 

FLAG  B I T ( 1 ) , 

IBEFORE  DEC  F  I  X  ED (  1  )  INIT(fi), 

1AFTER  DEC  F  I  X ED (  I  )  INIT(6); 


S  ELECT (  ERRCODE )  ; 

WH  EN (  NOTG )  DO . 

ETYPE- ’ ERROR :  * . 

MSG-  NO  TARGET  ITEM  GIVEN. 
MOR  R.WD-NO ; 

END  ; 

WHEN(  NOT  I  TPM)  DO; 

ETY PE— ’  WARN  I  NO  *  ; 

MSG—’  DOES  NOT  SPECIFY  A  DA 
TGHEAD— TCHEAD - >NEXTTG ; 
TCOUNT-TCOUNT -  1  ; 

STATE— 0 . 

CALL  NEWTG, 

END  ; 

WH  EN(NOQITEM)  DO. 

ETYPE-’ WARN  I  NG  :  *  ; 

MSG—*  DOES  NOT  SPECIFY  A  DA 
QUHEAD— QUHEAD -  >N  EXTQU  ; 
QCOUNT— QCOUNT -  1  ; 

WTMP-WORD ; 

DO  WHILE! FLAG ) ; 

WD-OETWD  , 

WTMP -WTMP  CAT  WD . 

F  v A G— NO  ; 

II*  (EQL(WD))  THEN  FLAG— YES. 
ELSE  IF  (WD—  ')  THEN 
MORE.  WD— NO  ; 

END;  /•  END  WHILE  •/ 

STATE— 7 , 

END  . 

WHEN  (  Ml  SQU  I*  )  DO  , 

ETY PE— *  WARN  I  NO 

MSG  —  QUALIFYING  ITEM  PART 
QUH  RAD— QUH  PAD •  >N  EXTQU  . 
QCOUNT  — QCOUNT -  I  , 

STATE- 3 . 

CALL  NEWQU , 

END .  / •  WHEN ( I )  •  / 

WHEN ( Ml SQUV )  DO , 

ETY PE— ’  WARN  I  NG 


ITEM  GIVEN.  QUERY  IGNORED'; 


I GNOR  ED 


DATA  ITEM.  IGNORED 


ITEM  PART  MISSING, 


vjv.. 


3W 
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MSG-*  QUALIFIER  VALUE  PART  MISSING  FOR  * ; 

STATE— 3 ; 

QUHEAD— QUHEAD *  >N EXTQU  ; 

QCOUNT— QCOUNT -  1  ; 

CALL  NEWQU ; 

END  ;  / •  WH  EN (  2  )  •  / 

WII EN  (  I  LGCHR  )  DO  ; 

ETYPE— 1  ERROR  :  *  ; 

MSG—'  IS  AN  ILLEGAL  CHAR  ,  TREATED  AS  A  BLANK’; 
END  ;  /  •  WH  EN (  3  )  •  / 

END.  /*  SELECT  ER  R  COD  E  •/ 

SELECT . 

WHEN( ERRCODE— I LGCHR )  DO, 

I  BEG  I  N— WBEG IN-  [BEFORE; 

I  END— WEND  +  I  AFTER  . 

IF  {  I  BEGIN  LE  0)  THEN  I  BEGIN-1  ; 

IF  (  I  END  GT  Q  L  ENG )  THEN  I  END— QLENG; 

ERRCON— * ’ . 

DO  K-IBEGIN  TO  l END ; 

ERRCON— ERRCON  CAT  BUF(K). 

END  . 

PUT  ED  I T  <  ETYPE ,  *  *  *  '  , WORD ,  ’  '  *  IN  ’  ’  ’  ,  ER R CON ,  ’  ’  ’  '  , MS G ) 

( COL ( I ) . A . COL ( 2 ) . 6  A.COL(2).A), 

END;  /•  WHEN  I LGCHR  •/ 

WHEN  ( ERRCODE— NOTG ) 

PUT  ED  1 T (  ETYPE . MSG )  ( COL (  l  )  . A . CO L (  2  )  .  A )  . 

WHEN)  ERRCODE-NOT I T EM  OR  ERR COD  E— NOQ ITEM)  DO. 

ERRCON—’ ’ 

DO  K— WBEG IN  TO  WEND. 

ERRCON— ERRCON  CAT  BUP(K) ; 

END  , 

TUT  ED  I T (  ETYPE .  ’  ’  ’  ’  .ERRCON ,  *  ’  ’  ’  .  MS G ) 

(  COL (  1  )  ,  A  .  COL  (  2  )  ,  4  A  |  . 

IF  ( ERRCODE— NOQ I TEM)  THEN  DO; 

WTMP— ERRCON  CAT  WTMP ; 

PUT  ED  I T (  '  '  '  '  ,  WTMP ,****)  (X(i),3  A); 

END  ; 

END;  /•  END  NOT  I T EM  OR  NOQ 1 T  EM  •/ 

WHEN( ERRCODE— MI SQUV  OR  ERR COD E— M I S QU P )  DO; 

ERRCON—*  *  ; 

DO  K— WBEG IN  TO  WEND; 

ERRCON— ERRCON  CAT  BUF(K); 

END  ; 

PUT  ED  I T (  ETYPE . MSG  .  *  *  ’  *  .ERRCON .  *  *  *  *  ) 

( COL ( 1 ) , A , COL ( 2 ) ,  4  A ) ; 

END .  / ♦  MI SQUV  • / 


END;  /•  END  SELECT  •/ 
ERR— ERRCODE ; 

END  MESG, 


PROCEDURE : 
PURPOSE : 


ACSDD 

THIS  PROCEDURE  FOR  EACH  TARGET  OR  QUALIFIER 
ITEM  ACCESSES  THE  DATA  DICTIONARY  AND 
CONVERTS  THE  INTERNAL  KEYWORDS  ASSOCIATED 
WITH  THE  ITEM  TO  A  LIST  OP  ACTUAL  DATABASE 
ITEM  NAMES . 


ACSDD 

PROCEDURE! TGORQU ) 
DC  L  TGORQU  DE 
DCL  (RL.KL.HL, 
(  I  .  J.K) 


FIXED( 1 ) ; 

P , PP )  POINTER, 
FIXED! 2 ) 


S  ELECT ( TGORQU )  . 

WHBN( 1 )  DO ; 

PP  —  NULL; 

WDNUM— 1 . 

CALL  FORM!  TCHEAD  -  >STCOUNT  .  TGIIRAD  -  >S  TCPTR  ,  WDNUM) 
IF  FORMWD(I)— *  *  THEN  WDNUM— 0 ; 

DO  K— 1  TO  WDNUM; 

TMEM-FORMWD ! K ) 

FORMWD ! K ) — ’ * ; 

HEAD  —  NULL; 

CALL  ZACSD3;  /•  ACCESS  D/D  WITH  TMEM  •/ 

IF  HEAD  NE  NULL  THEN  CALL  SORTL; 
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wmmmk 


END  ; 

TGHEAD-  >STGPTR  —  PP, 

IF  ( PP  —  NULL)  THEN  DO, 

CALL  MESG(  NOT  I TEM,  *  •  .  ITEMPOS  ,  I TEMEND )  ; 

STATE-0 , 

END  . 

END,  /•  WHEN  WHEN  TG  •/ 

WHEN( 2 )  DO , 

PP  -  NULL, 

WDNUM-1 , 

CALL  FORM(  QUHEAD-  >SQCOUNT  ,  QUH  E  AD  -  >SQUPTR  ,  WDNUM)  ; 
DO  K  — 1  TO  WDNUM; 

TMEM-PORMWD ( K ) ; 

FORMWD ( K ) — * ’ ; 

HEAD  —  NULL ; 

CALL  ZACSD3,  /•  ACCESS  D/D  WITH  TMEM  •/ 

IF  HEAD  NE  NULL  THEN  CALL  SORT  L  ; 

END  , 

QUHEAD  -  >SQI>I'TR  —  PP; 

IF  ( PP  -  NULL)  THEN  DO; 

CALL  MESG(  NOQ I T EM , WD  ,  1  TEMPOS  .  1 TEMEND )  ; 

END 

END;  / •  WHEN  QUALIFIER  •/ 

OTHERWI  S  E 

END;  /*  END  SELECT  */ 

GO  TO  ACSDO . 


/ . . . . 

/•  •/ 

/•  PROCEDURE  SORTL  •/ 

/•  #/ 

/•  PURPOSE:  THIS  PROCEDURE  CHECKS  ALL  WORDS  IN  THE  LIST  •/ 

/*  OF  DATABASE  ITEM  NAMES  RETURNED  PROM  THE  •/ 

/ *  DATA  DICTIONARY  TO  SEE  IF  THEY  ARE  CURRENTLY  */ 

/•  IN  THE  LIST  IF  NOT,  THEN  THEY  ARE  ADDED  TO  •/ 

/*  THE  END  OF  THE  LIST  •/ 

/*  #/ 

/ . . . . 


SORTL.  PROCEDURE; 

IF  pp  —  NULL  THEN 
BEG  I  N ; 

I  —  I  ; 

HL  -  HEAD . 

P  -  PP; 

DO  WHILE  (HL  NE  NULL), 

ALLOCATE  INKWDREC; 

CURB. I NKWD.PT - >NEXT 1 NKWD  —  NULL; 
CURR.INKWD.PT- >INKWDF  —  HL - >CATREC  CATMEMN ; 
IP  I  >  1  THEN  P  - >NEXTI NKWD  —  CURR. I NKWD.PT ; 

ELSE  PP  —  CURR  _ 1  NKWD .PT  , 

HL  —  HL - >CATREC . CATNEXT ; 

P  —  CURR _ I NKWD.PT ; 

I  -  I  *■  1  ; 

END;  /*  III  •/ 

END  ; 

ELSE  BEGIN;  /•  FOR  NEXT  INTERNAL  KEYWORD  •/ 

HL  —  HEAD . 

DO  WHILE  (HL  NE  NULL); 

P  —  PP  ; 

DO  WHILE  |P  NE  NULL  )  ; 

IP  HL -  >CATR EC  CATMEMN  -  P-  >INKWDF  THEN 
GO  TO  S  O  2  ; 

IP  P -  >N  EXT  I NKWD  NE  NULL  THEN 
P  —  P  >NEXT I NKWD ; 

ELSE  CO  TO  SOI; 

END  , 

SOI  ALLOCATE  INKWDREC, 

CURR.INKWD.PT- >INKWDP  —  HL - >CATR EC  CATMEMN ; 
CURR.INKWI).PT->NEXTINKWD  —  NULL, 

P- >NKXT I NKWD  —  CURR.INKWD.PT, 

SOS  HL  —  HL - >CATREC  CATNEXT . 

END  . 

END  , 

END  SORTL; 

END  ACSDD . 


A  C  S  D  0 


PROCEDURE  FORM 

PURPOSE  THIS  PROCEDURE  FORMATS  A  CHARACTER  STRING  OF 

ALL  THE  INTERNAL  KEYWORDS  ASSOCIATED  WITH 
THE  SPECIFIED  TARGET  OR  QUALIFIER  ITEM 
EACH  KEYWORD  IS  DELIMITED  BY  *  AND  THEY 
ARE  SEPARATED  BY  A  ’  .  *  . 


FORM 

PROCEDURE! SKNUM, PTR , WDNUM)  RECURSIVE, 

DCL  (PTR.PTM)  POINTER; 

DO  I -WDNUM  TO  1  BY  -  1  ; 

TMP-PTR  -  > I KCOUNT  ; 

P T M—  PTR-  > 1 K  PTR 

DO  J  — TMP  TO  1  BY  -  1  ; 

IF  FOR  MWD (  I  ’  THEN  DO; 

FORMWD (  (  I  -  1  )  *TMP+ J  ) —  *  *  *  *  CAT  PTM-  >1  NKWDF  CAT 
END  ; 

ELSE  DO; 

FORMWD (  (  I  -  1  )*TMP+J) —FORMWD (  I)  CAT  '  ,  ’  CAT  ’  *  ' 

PTM- >1 NKWDF  CAT  ’ * ’ ’ ; 

END  ; 

PTM— PTM-  >N EXT  I NKWD ; 

END  , 

END 

WDNUM— WDNUM* TMP  ; 

IF  ( SKNUM— 1 )  THEN  DO, 

RETURN ; 

END  ; 

ELSE  DO  , 

CALL  FORM( SKNUM- 1 , PTR- >N EX TSK, WDNUM) ; 

END  . 

END  FORM; 


f  PROCEDURE 

f  * 

(•  PURPOSE: 


THIS  PROCEDURE  DISPLAYS  THE  INTRODUCTION 
TO  THE  REPORT  GENERATOR  ON  THE  USER’S 
TERMINAL  SCREEN 


INTRO  PROCEDURE; 

PUT  SKIP; 

PUT  SKIP  EDIT  (*••••  WELCOME  TO  THE  REPORT  GENERATOR  ••••’) 

(  COL (  I  6  )  ,  A  )  ; 

PUT  SKIP; 

PUT  SKIP; 

PUT  SKIP  EDIT  (THIS  SYSTEM  IS  A  QUESTION  -  DRIVEN  INTERACTIVE  ONE.') 
!  COL (  «  )  ,  A )  ; 

PUT  SKIP  EDIT  (’IT  ACCEPTS  AN  INITIAL  QUERY  FROM  THE  USER.  EG..') 

( COL ( 8 ) , A ) ; 

PUT  SKIP  EDIT  ( ’ SHOW  THE  COST  FOR  PROJECT  —  BI2  AND  YEAR  —  1081') 

( COL ( 1 1 ) , A ) ; 

PUT  SKIP  EDIT  (’AND  DECIDES  WHICH  REPORTS  SATISFY  THE  INITIAL  QUERY’) 
(  COM  •  )  .  A)  ; 

PUT  SKIP  EDIT  (’AND  THEN  GENERATES  THE  REPORT  SELECTED  BY  THE  USER.’) 

( COL ( 8 ) , A ) ; 

PUT  SKIP, 

PUT  SKIP  EDIT  (’JUST  FOLLOW  THE  PROMPTS  AND  PROCEED  THROUGH  TO’) 

( COL ( 8 ) , A ) ; 

PUT  SKIP  EDIT  (’OBTAIN  THE  DESIRED  REPORT  ’)  (COL  (8), A); 

PUT  SKIP; 

PUT  SKIP  EDIT  (NOTE  THE  REPORT  GENERATOR  MAY  BE  EXITED  ANY’) 

(COL  ( I | , A ) ; 

PUT  SKiP  EDIT  (’TIME  A  PROMPT  IS  PRESENTED  BY  TYPING  *  QU IT*’) 

( COL  ( 1 fi ) .  A ) ; 

PUT  SKIP  EDIT  (’  EXCEPT  WHEN  PROMPTED  WITH' ) ( COL ( 16) ,A) ; 

PUT  SKIP  EDIT  (  '  'ENTER  INITIAL  QUERY  ",  THEN  EITHER  •  ENDQ “  ’  ) 

(  COL  (  1  6  )  .  A  )  . 

PUT  SKIP  EDIT  (’  OR  A  NULL  LINE  ARE  PEQU  IRED  TO  EXIT  ’  )  (COL(  U)  ,A)  ; 
PUT  SKIP. 

PUT  SKIP, 

END  INTRO. 

END  YQPARSE. 


Y  A  1  N  I  T 


PROCEDURE  OPTIONS(MAIN)  ; 


PRO  J  ECT 
PROGRAMMER 


F I LENAME 
LANGUAGE 
DEPENDENC I ES 


DATE  : 


REPORT  GENERATOR 

DEPARTMENT  OF  COMPUTER  SCIENCE 
UNIVERSITY  OF  ILLINOIS 


S  ETD  B I NTERF ACE 
PL / I  UNDER  CMS 
DMRUS 


PL  I 


DECEMBER , 


10  8  4 


/  4 


’  / 


THIS  MODULE  SETS  UP  THE  PROPER  INTERFACE  WITH  THE  DATA 
DICTIONARY  SO  IT  CAN  BE  ACCESSED  LATER 


/ •  DMRUS  IS  THE  INTERFACE  PROGRAM  BETWEEN  USER  PROGRAM  AND  DATA  DICTIONARY 
SUPPLIED  BY  DATA  MANAGER  */ 

DC  L  DMRUS  ENTRY  EXTERNAL  OPTIONS(  ASM,  INTER)  ; 


DC  L  DMOUT  FILE  OUTPUT  STREAM  ENV  (F  R EC S  I  Z E (  8 0  )  )  : 

DC  L  1  DOUTPUT  CHAR (  160)  ; 

/•  DCONTRO  CONTAINS  THE  PARAMETERS  NEEDED  TO  ACCESS  DATA  DICTIONARY 
DC  L  1  DCONTRO  STATIC  EXTERNAL, 

3  DCOMMII N  E  CHAR  (64). 

*  )  . 

I N I T ( 800) . 

I  N  I  T  (  7  2  )  , 

I  N  I  T  (  7  2)  , 

I  N  I  T  (  16  0)  . 


3 

DCOMMII  N  E 

CHAR 

< 

•  o, 

3 

DDMR 

CHAR 

( 

8  )  I  N  1  T  (  ’ 

DM0  0 

3 

DRUFFLEN 

FIXED 

DIN  (27 

) 

AL I GNED 

3 

D l  NPL  EN 

FIXED 

BIN  (16 

) 

ALIGNED 

3 

D I NPLR  EC 

F  I  X  ED 

BIN  (16 

) 

A  L  1 G NED 

3 

DOUTLEN 

FIXED 

BIN  (16 

) 

AL I GNED 

3 

DOUTLREC 

FIXED 

BIN  (16 

) 

ALIGNED, 

3 

DFUNC 

PIC  ' 

0 

'  I  N  f  T  ( 

1  ) 

3 

DRETURN 

PIC  • 

9 

3 

DRETURN 1 

PIC 

9 

*  , 

3 

DR  ETURN  2 

PIC  • 

9 

*  , 

3 

DS  EVR I TY 

CHAR 

( 

1  )  . 

3 

DOPT I  ON  1 

PIC  • 

9 

’  INIT( 

1  ) 

, 

3 

DOPT 1  ON  2 

PIC  * 

9 

*  I  N  1  T  ( 

3  ) 

, 

3 

DOPT I  ON  3 

PIC  • 

9 

*  , 

3 

DOPT  1  ON  4 

PIC  ’ 

9 

*  , 

3 

DOPT I  ON  6 

PIC  • 

9 

*  1  N  1  T  ( 

2  ) 

3 

DOPT  1  ON 6 

PIC 

9 

i  N  I  T  j 

1  ) 

, 

3 

DOPT 1  ON  7 

PIC  ’ 

9 

’  I  N  I  T  ( 

0  ) 

3 

DOPT  1  ON  8 

PIC 

9 

1  N  1  T  ( 

<>  ) 

, 

3 

DOTT I  ON  9 

PIC  ’ 

9 

3 

DO  V  TWA  1  T 

FIXED 

DEC  (  6  ) 

, 

3 

DOUTTOTL 

FIXED 

DEC  (  6  ) 

3 

DOUTTOTM 

P  1  X  ED 

D  EC  (  6  ) 

3 

D I NPNO 

FIXED 

DEC  (  3  ) 

3 

F  1  I  L  ER  0  0  0  0  1  CHAR  (  3  )  , 

3 

D  1  N  PUT 

CHAR 

( 

7  2). 

MAIN  PROCEDURE 


DOOMMUNE-LOW(  6  4). 

D INPUT  —  DICTIONARY 


D  T  E  S  T 


'•  THE  DICTIONARY  NAME  HAS  TO  RE  CHANGED  TO  ACCESS  DIFFERENT  DATA  DICTIONARY*/ 
CAI.I.  D MR  1 1  s  |  DCONTRO  .  1)01* T  PUT  )  . 

P  INPUT  —  ’  AUTHOR  I  TV  UJUCpr.S* 

CALL  DMHU S ( DCONTRO  DoUTPUT). 

END  Y  A  I  N  I  T  , 
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Z ACSD  3 


PROCEDURE  OPT  I ONS  (  MA  1  N )  ; 


PROJECT 
PROGR  AMMMER 


F I LENAME 
LANGUAGE : 
DEPENDENC I ES 

DATE 


REPORT  GENERATOR 

DEPARTMENT  OF  COMPUTER  SCIENCE 
UNIVERSITY  OF  ILLINOIS 


ACCESSDICTI ON ARY . 
PL  /  I  UNDER  CMS 
D  MR  US 


PL  I 


D  EC  EMBER  , 


10  8  4 


/* 


#/ 


THIS  MODULE  ACCESSES  THE  DATA  DICTIONARY  THROUGH  THE  DMRUS 
INTERFACE  USING  THE  COMMAND  ’WHAT  FORMS  . . . ’  IN  ORDER  TO 

RETRIEVE  MEMBER  NAMES  FOR  A  REPORT’ S  KEYWORDS  IN  THE 
CATEGORY  CLASSIFICATION 


DC  L  DMRUS  ENTRY  EXTERNAL  OPTIONS! ASM,  INTER)  ; 
DC  L  NULL  BUI  LTIN, 

DC  L  MOD  BUILTIN; 


DC  L  1 

CATR  EC 

BASED!  CATPTR  )  , 

/ 

• 

NODE  OF  CATEGORY 

LIST  • 

2  CATMEMN  CHAR ( 

3  2), 

/ 

• 

CATEGORY  MEMBER 

NAME  • 

2  CATMEMT  CHAR( 32) , 

/ 

• 

CATEGORY  MEMBER 

TYPE  • 

2  CATNEXT  POINTER, 

/ 

• 

NEXT  CATEGORY  •/ 

DC  L 

HEAD 

STAT I C 

EXTERNAL 

PO INTER; 

/ 

• 

HEAD  OF  CATEGORY 

LIST  • 

DC  L 

CATPTR 

STAT I C 

EXTERNAL 

PO I  NT ER  , 

/ 

• 

CATEGORY  PTR  •/ 

DC  L 

TMEM 

STAT I C 

EXTERNAL 

CHAR (40) 

;  / 

• 

TARGET  MEMBER  •/ 

DC  L 

TOT A  LN 

STAT I C 

EXTERNAL 

CHAR ( 5 ) ; 

DC  L 

1  DPQB 

.BAS  ED  4 

BA  S  ED 

( DMR.PTR ) , 

£ 


v 


* 

•  v 

v 

v 

& 


w 

v  • 

y 

y* 

V 


’  V 


FILLER  00010 
D  PQ  DDT  L  L 
6  DMTEST 
6  F  I  LLER0  0  0  1 
6  DPQBDMTP 


1  (10) 


FILLER  00012 
DPQDDMEM 


3  FILLER  00013 
DC  L 

1  DPQB.BASED6 
3  FILLER  00014 
3  DPQBTOTL . 

6  FILLER  0  0  0  1  8 
6  DPQBTOT 
8  PILLEROOOlfl 
S  D  PQBTMEM 
3  FILLER  00017 


CHAR  (  1  )  . 

/ * D  ET  A  I  L  LINE 
CHAR (  4  )  . 
CHAR  ( 1 ) . 

CHAR  (32) 

/ * MEMBER  -  TV  PE 
CHAR  ( 1 ) . 

CHAR  (32) 
/•MEMBER  NAME 
CHAR  (70). 


BA  S  ED  (  DMR  _  PTR  I 
CHAR (  1  )  . 

CHARI  1  ) 

CHARI  ft  )  •  T  < '  T  A 

CHARI  1  ) 

(IIAHI  20  I 
CIIAR  III*) 


DC  L  DMOUT  FILE  OUTPUT  STREAM  PNV  <P  K  F<  I  7  F  .  * 

DC  L  A  TRACE  FILE  OUTPUT  STREAM  RNV  (I  HT<  *  t  ?  ¥  .  ■  ■  - 
DC  L  1  DOUTPl'T  CHAR(  180)  , 

DC  L  1  DCONTRO  STATIC  EXTERNAL. 


3 

DCOMMUNR 

CHAR 

( 

fl  4  ) 

3 

DDMR 

CHAR 

( 

•  ) 

1  N  1  T  ( 

DM0  0  ) 

3 

DBUFF  L PN 

FIXED 

n  i 

N 

2 

7  ) 

At  icsrp 

t  *.  7 

3 

DINPLEN 

FIXED 

(i  i 

N 

1 

8  ) 

At  MINKI' 

1  *.  1  7 

3 

D I NPLRPC 

F  1  X  ED 

n  i 

N 

l 

8  ) 

At  1  ON  fl> 

18" 

3 

DOUTI.P.N 

FIXED 

n  i 

N 

8  ) 

a  i  hisri 

1  v 

3 

DOUTI.R  PC 

F  1  X  PD 

B  1 

N 

1 

r.  1 

a  i  i 

3 

DPUNC 

Pit'  ’ 

1 

N  1 

T 

'  i 

> 

3 

DRKTURN 

PIC 

3 

DH  RTUHN 1 

PI  C 

3 

DRFTUHN2 

PIC 

3 

D  S  I .  VRITY 

(  HAH 

1 

i  > 

3 

DOPT  1  ON  i 

P  1  C 

1 

N  I 

T 

(  i 

3 

DOPT 1  ON  2 

P  1  c 

1 

N  1 

T 

(  i 

3 

DOPT  1  ON  3 

P  I  C 

3 

DOPT 1  ON  4 

p  I  <• 

3 

D o I  noNi 

P  1  C 

) 

S  1 

T 

■  . 

i 


3 

DOPT 1 ONfi 

PIC  • 

«  *  I  N  I  T  ( 

1 

) 

3 

DOPT I  ON  7 

PIC  1 

0  ’•  I  N  I  T  ( 

0 

) 

3 

DOPT I  ON  8 

PIC  • 

9  1  I  N  1  T  ( 

0 

) 

3 

DOPT 1  ON  fl 

PIC  ’ 

9  *  . 

3 

DOUTWA 1 T 

P  I  X  ED 

DEC 

(  8) 

, 

3 

DOUTTOTL 

FIXED 

DEC 

(  8  ) 

, 

3 

DOUTTOTM 

FIXED 

DEC 

(  *  ) 

, 

3 

D I NPNO 

FIXED 

DEC 

(  3  ) 

, 

3 

PILL  ER  0000  1  CHAR  ( 

3  )  . 

3 

D  I  N PUT 

CHAR 

(72) 

; 

f*  MAIN  PROCEDURE  •/ 

/ . •••*•••••••••••/ 


ALLOCATE  DPQB.BASED4 , 

ALLOCATE  DPQB.BASEDS , 

HEAD  —  NULL  ; 

PUT  P  I  LE(  ATRACE)  ED  I T (  * TMEM—  *  . TMEM)  ( COL ( 1 ) , A , A ) ; 
CALL  CATAC ( TMEM, HEAD ) , 

/• 

CALL  LIS  TT (  1  ) 

*  / 

GO  TO  ZACSEND; 


/*♦**♦♦♦••*• . ********* . *********** . ••••••/ 

/  *  •/ 

/•  PROCEDURE  CATAG  •/ 

/•  •/ 

/•  PURPOSB:  THIS  PROCEDURE  CALLS  DMRUS  FOR  EACH  KEYWORD  •/ 

/  •  IN  THE  FORMATTED  LIST,  AND  CREATES  A  LINKED  •/ 

/•  LIST  OF  EACH  MEMBER  NAME  RETURNED  PROM  THE  •/ 

/♦  DATABASE  •/ 

/*  */ 

. . . . . . . . . . ••/ 


CATAG : 

PROCEDURE!  STR ,  PTR )  ; 

DC  L  STR  CHAR(  4  0), 

PTR  POINTER, 

T  POINTER, 

PUT  FILE! ATRACE)  ED1T( ’INTERNAL  KEYWORD  IS  ’.STR)  ( COL ( 1 ) . A , A ) ; 
D  I  NPUT—’ WHAT  FORMS  ’  CAT  STR  CAT  ’  .  ’  , 

CALL  DMRUS ( DCONTRO . DOUTPUT ) ; 

DF  U  NO  — 2  . 

PTR— NU  L  L ; 

CALL  DMRU S ( DCONTRO , DOUTPUT ) ; 

T  —  NULL , 

I  —  I  ; 

DO  WH I LE( DOUTWA I T  >  0), 

IF  DOUTWA IT  NE  1  THEN  BEGIN. 

ALLOCATE  CATREC, 

CALL  DMRU  S (  DCONTRO ,  DPQB.BAS ED  4 )  ; 

IF  (DMTEST  —  ’  ’)  THEN  DO; 

CAT PTR -  'CATREC  C ATMEMN— DPQBDMEM , 

CAT PTR -  'CATREC  CATMEMT-D PQBDMT P ; 

CAT  PTR  -  --CATREC  CATNBXT-NUI.L  ; 

PUT  FILRj  ATRACE)  ED  I T (  ’  IT  EM  —  ’  , CAT PTR -  >C ATR EC  CATMEMN.  'TYPE 

CAT PTR - >CATREC  CATMEMT ) (COL( 1 ) , A , A , X | 4 ) , A , A ) ; 

IF  I  >  |  THEN  T -  >CATREC  CATNEXT  —  CAT  PTR  , 

ELSE  PTR  —  CAT PTR , 

T  —  CAT  PTR  . 

I  —  I  +  I  , 

END  ; 

END  . 

ELSE  BEGIN, 

CALL  DMRUS  (  DCONTRO ,  DPQB.BAS ED  6  )  . 

TOT  A  1.  N  -  DPQBTOT, 

END  ; 

T  —CAT  PTR  . 

END  , 

DFUNC  —  I , 

END  CATAG . 


/ 

/ 


/ 

/ 
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V.  Y« *V  i*. 


PROCEDURE:  LIS  TT 

PURPOSE:  THIS  PROCEDURE  WRITES  INTO  THE  DATA  PILE  ATRACE 

THE  APPROPRIATE  INFORMATION  FROM  EACH  MEMBER 
OF  THE  CATEGORY  LIST  ACCORD  I  NO  TO  THE 
SPECIFIC  COMMAND  USED  TO  ACCESS  THE  DATABASE. 


L  I  S  TT  : 

PROCEDURE! TYPE) ; 

DC L  TYPE  F I  X ED (  I  )  ; 

DCL  PTR  POINTER; 

IF  TYPE  —  1  THEN  BEGIN; 

PTR  —  HEAD ; 

PUT  FILE! ATRACE )  ED  I T (  1  WHAT  FORMS---  CLAS S I F I  CAT  I  ON ’  )  ( COL (  I  )  , A ) 

PUT  F I LE| ATRACE)  EDIT( 'GOT  FOLLOW  ITEMS  FROM  D/D  FOR  INTERNAL  KEY’ 
)  ( COL ( 1 ) . A) ; 

DO  WHILE! PTR  NE  NULL); 

PUT  FILE(ATRACE)  ED l T (  PTR -  >CATR EC  . CATMEMN ,  PTR  -  >C ATR EC . CATMEMT 
)  ( COL ! 1) , X ( 2 ) . A , X ( 2 ) ,A) ; 

PTR  —  PTR - >CATREC . CATNEXT ; 

END  ; 

END  ; 

IF  TYPE  —  2  THEN  BEGIN; 

PTR  —  HEAD ; 

PUT  F 1 LE( ATRACE)  ED  I T (  *  WHAT  USE----  ACCESS  PATH •  )  ( COL (  1  )  , A ) 

DO  WHILE  (PTR  NE  NULL); 

PUT  F 1  LE( ATRACE)  ED  I T (  PTR -  >CATR EC . CATMEMN ,  PTR -  >CATR EC . CATMEMT ) 
PTR-  >C ATR  EC  .  CA 
END  ; 

END  ; 

IF  TYPE  —  3  THEN 

D I  SPLAY!  ’ NOW  D I  SPLAY  REPORT  DETAILS’); 

END  L1STT; 

ZACSEND  END  ZACSD3; 


UNIT: 

PROCEDURE  OPT  I ONS (  MA I N )  ; 


PROJECT 

PROGRAMMER 


REPORT  GENERATOR 

DEPARTMENT  OP  COMPUTER  SCIENCE 
UNIVERSITY  OP  ILLINOIS 


P I LENAME : 
LANGUAGE : 
DEPENDENC I ES 


I N I TREPORTDEPNS  PL  I 
PL /I  UNDER  CMS 
SRDEP . DATA 


DECEMBER,  1094 


THIS  MODULE  CREATES  AND  INITIALIZES  THE  INTERNAL  REPRESENTATION 
OP  THE  STANDARD  REPORT  DEFINITIONS  TO  BE  USED  IN  THE  FRONT  END. 


/♦  STANDARD  REPORT  DEFINITION  PILE 


DC  L  NULL 
DC  L  DATE 


SRDEP  FILE 
NULL  BU 


DC  L  TIME 
DC  L  SUBSTR 
DC  L  INDEX 


LE  INPUT 
BUILT1N; 

BU I  LT  I  N 
BU I LT I N . 
BU  I  LT  I  N  ; 
BU I LT I N ; 


SEQUENTIAL  ENV ( P ( 1 9 6 0 ) ) 


1  SREPORT, 

2  SRID  FIX  ED (2) 

2  S  F  NAME  CHAR (32) 

2  S  D  ES  CHAR (72) 

2  ST.NUM  F I  X  ED (  2  ) 

2  SQ_NUM  FIX  ED (  2  ) 

2  STITEM( 10), 

3  ST  I  NAM  CHAR (12) 
3  SPORMA  CHAR (10) 
3  SDBNAM  CHAR ( 9 ) 

3  S  LOG  I D  CHAR (  8  ) 

3  SPASSW  CHAR ( 8 ) 

3  SPULNA  CHAR (32) 
3  ST  I DES  CHAR (72) 
3  SHEIGH  P I  X ED (  2  ) 
3  S  PATH (  4  )  CHAR (  9 
TITEM, 

2  NAME  CHAR (12) 

2  FORMAT  CHAR (10)  , 

2  DBNAME  CHAR{8) 

2  LOG  I D  CHAR (  8  ) 

2  PAS  S WD  CHAR (  8  ) 

2  PNAME  CHAR (32)  , 

2  DES  CHAR (72)  , 

2  HEIGHT  PICTURE  ’0 
2  PATH ( 4 )  CHAR ( 8 ) ; 


SR  DEF  TEMPLET 


I  N  I  T  (  0  ) 
I  N  I  T  (  ’  ’ 
I  N  I  T  (  •  * 
I  N  I  T  (  0  ) 
I  N  I  T  (  0  ) 

f 

I  N  I  T  (  ( 
I  N  I  T  (  ( 
I  N  I  T(  (  l 
I  N  I  T  (  (  I 
1  NI  T(  (  1 
I  N  I  T  (  ( 
1  N  I  T  (  ( 
I  NI  T(  ( 
)  I  N  I  T  ( 
/ 


/•  REPORT  NAME  •/ 
DESCRIPTION  •/ 

NUMBER  TARGET  ITEMS  •/ 
NUMBER  QUALIFIER  ITEMS 
r  A  QUALIFIER  ITEM  LIST 


10)*'), 
1  0  )  •  *  )  , 
0  )  ’  ’  )  . 
o  )  *  •  )  . 
o  )  ’  •  )  . 
10)"), 
10)"), 
10)0), 
MO)") 


ITEM  NAME  •/ 

FORMAT  •/ 

DATABASE  •/ 

LOGON  ID  ♦/ 

PASSWORD  •/ 

PULL  NAME  •/ 

D  ES  CR I  PT I  ON  • / 

LENGTH  OP  ARRAY  PATH  •/ 
ARRAY  OP  PARENT  SEGMENTS 


♦  ITEM  RECORD  FOR  RIP.D  •, 


2  DES 
2  HEIGHT 
2  PATH ( 4 ) 
1  R1PREC, 

2  SRID 
2  QUL.NO 
2  QUAL ( 6 ) 
3  QNAME 
3  QVALU 
3  QV  ALB 
3  QINDEX 
3  QFLAG 
2  T I  _  NO 


P I CTURE 
P I CTURE 


RIP  ^R  RECORD  •/ 
REPORT  ID  •/ 
NUMBER  QUALIFIERS 


CHAR (12), 
CHAR (12), 
CHAR (12), 
PICTURE  * 
PICTURE  ’ 
P I CTURE ’ 8 


/•  QUALIFIER  NAME  •/ 
/•  QUALIFIER  VALUE  •/ 


T I ND  EX (10)  PI CTUR 


9  9  9', 
•  * 

9  ' 

E  '  9  9  9 


/•  QUAL  IP  I  ER  INDEX  •/ 

/•  QUALIFIER  FLAG  •/ 

/•  NUMBER  TARGET  ITEMS  •/ 
INDEX  ARRAY  TO  TARGET  ITEMS  •/ 


REPORTS)  STATIC  EXTERNAL. 


2 

PNAME 

CHAR (32), 

/* 

2 

DES 

CHAR ( 72), 

/  » 

2 

T.Nl/M 

P 1 X  ED (  2  ) 

IN!T( (3)0), 

/* 

2 

TL  1  ST 

PO INTER , 

/  ’ 

2 

Q.NUM 

P 1  X  ED (  2  ) 

1  N  1  T  (  (3)0)  , 

/  * 

2 

QL  1  ST 

PO INTER, 

/  * 

2 

PACTOR 

P  I  X  ED (  1  ) 

1  N  1  T  (  (  3  )  0  )  . 

/» 

2 

WANTED 

BIT(  1  )  INIT(  (  3  )  '  0  '  B) 

;  /  • 

TARGET 

BASED(WT) , 

/  * 

NOD 

2 

NAME 

CHAR (12). 

2 

FORMAT 

CHAR (10). 

2 

DBNAME 

CHAR ( 8 ) , 

2 

LOG  1  D 

CHAR ( 8 ) . 

WORKING  RECORD  FOR  SR  •/ 
FULL  NAME  •/ 

DESCRIPTION  •/ 

NUMBER  TARGET  ITEMS  •/ 

TO  TARGET  ITEM  LIST  •/ 
NUMBER  OP  QUALIFIERS  •/ 
TO  QUALIFIER  LIST  • f 
MATCH  FACTOR  • / 

WANTED  TO  BE  PRODUCED  •/ 
E  OF  TARGET  ITEM  LIST  •/ 


2 

PAS  SWD 

CHAR ( • ) . 

2 

r  NAME 

CHAR( S3), 

2 

DES 

CHAR (73). 

2 

HEIGHT 

FIXED! * ) . 

2 

PATH ( 4 

)  CHAR ( • ) . 

2 

MATCH 

BIT( 1 )  I N 1 T ( 

0  '  B) 

2 

PWP 

PO I  NT  ER ; 

/•  NEXT 

TARGET  ITEM  */ 

DCL 

1 

QUAL 1 P 

BA  S  ED  (  WQ  )  , 

/•  NODE 

OF  QUALIFIER  LIST  •/ 

2 

NAME 

CHAR (12), 

2 

FORMAT 

CHAR(  10), 

2 

DBNAME 

CHAR! • ) . 

2 

LOG  1  D 

CHAR( • ) , 

2 

PAS  SWD 

CHAR ( • ) , 

2 

FNAME 

CHAR (32), 

2 

DES 

CHAR (72), 

2 

HEIGHT 

FIX  ED (  2 )  , 

2 

PATH ( * 

)  CHAR( • ) . 

2 

VALU 

CHAR (12), 

2 

VALB 

CHAR (12), 

2 

1  NDEX 

F  I  X  ED  (  3  )  , 

2 

FLAG 

FIXED! 1 ) . 

2 

MATCH 

BIT(  1)  I N 1 T ( 

0  •  B> 

2 

FWP 

PO 1  NT  ER  ; 

/•  NEXT  QUALIFIER  ITEM  •/ 

DCL 

S  P 

POI NT  ER ; 

DCL 

S 

B 

I  T  (  1  )  I  N  I  T  (  *  1 

B)  ; 

/  •  END 

OF  FILE  • / 

DCL 

NP 

F 1 XED( 2 ) ;  / •  NUMBER 

TARGET 

ITEMS  ALREADY  CREATED 

MAIN  PROCEDURE 


•/ 


I  —  I  ; 

ON  ENDFILE  ( SRDEF) 

DO  WH I  L E (  S  )  ; 

READ  FILE  (SRDEF) 
IF  ( S )  THEN  DO; 


S  —  '  0  '  B  , 

/•  GET  SR  TEMPLET 
I NTO  ( SREPORT ) ; 


—  0  ; 
—  0  i 

TO  1 


S  F  NAME 
SDES 
ST.NUM 
SQ.NUM 
DO  J  — 1 
ST  I TEM(  J ) 
STITEM(  J) 
ST  I TEM(  J ) 
ST  I  TEM(  J  ) 
ST  I TEM(  J  ) 
ST  I TEM(  J ) 
ST  I TEM<  J ) 
ST  I  TEM(  J  ) 
DO  K—  1  TO 
S T  I  TEM(  J  ) 
END  ; 

END  ; 


o  ; 

ST  I  NAM  - 
SFORMA  - 
S D BN AM  - 
SLOG  ID  - 
SPASSW  - 
SFULNA  - 
STIDES  - 
SHEIGH  - 

4  ; 

5  PATH ( K )  — 


REPORT ( I ) 
REPORT ( I ) 
REPORT ( I ) 
REPORT ( I ) 
REPORT ( I ) 
REPORT< I ) 
NP  -  I, 

SP  —  NULL 
DO  J— 1  TO 


F  NAME 
DES  — 
QL  I  ST 
TL  I  ST 
T.NUM 
Q_NUM 


—  S  F  NAME ; 
SDES  ; 

—  NULL; 

—  NULL ; 

—  9T.NUM; 

—  SQ.NUM . 


r 


ST.NUM; 

ALLOCATE  TAROET , 

WT - >TARGET  NAME  —  STITEM(J) 


CREATE  SR  TARGET  ITEM  LIST  •/ 


WT - >T AROET 
WT • >T AROET 
WT  -  >T ARGET 
WT  -  >TAROET 
WT- >T ARGET 
WT- >TAROET 
WT  -  >T ARGET 
DO  K— 1  TO  4  . 

WT- >T ARGET  PATH { K ) 

END,  /  •  K  ♦/ 

WT- >TAROET  FWP  —  NULL. 

IF  NP  >  I  THEN  S  P  ■  >T  AR  G  F.T  KWP  — 
ELSE  REPORT (  I  )  TL I  ST  —  WT, 


FORMAT 
D  BN A  ME 
LOG  1  D 
PAS  SWD 
F  NAME 
DES 

HE ! OHT 


ST  I TBM<  J  ) 
ST  I  TEM<  J  ) 
ST  ITEM!  i  ) 
ST  I  TEM|  J  ) 
ST ITEM( J ) 
ST  I  TEM(  J  ) 
ST  I T  EM(  J  ) 


ST  I  NAM, 
SFORMA  . 
SDBNAM. 
SLOG  I  D  . 
S  PAS  SW. 
SFULNA  . 
STIDES  . 
SH I EGH , 


—  STITEMI  J)  SPATH(K) 


WT  . 


s  p  —  WT  . 

NP  —  NP  ♦  1  ; 

KND;  /•  J  •/ 

NP  —  I  ; 

DO  J  —  ST.NUM  f  1  TO  ST.NUM 
ALLOCATE  QUALIP; 

WQ- >QUAL I P . NAME  —  STIT1 


WQ->QUALIF  PORMAT 
WQ  -  >QU  A  L  I  P  D  BN  A  ME 
WQ -  >QU  A  LIP.  LOO  I D  —  STJTRM(J) 
WQ-  >QUAl.  !  F  .  PASSWD  —  STITEM(J). 
WQ  -  >QUA  I.  I  F  P  NAME  —  STITRM(J) 
WQ-  >QUAL  I  P  DBS  —  STITRM(J) 

WQ.  XJUALIP  HEIGHT  —  STJTRM(J) 
DO  K— I  TO  4  , 

WQ-  ^gUAl  I  P  .  PATII(  K  )  —  ST  I  TF.M(  J 

END,  / •  K  •/ 

WQ  -  XJUALIP  KWP  -  NULL. 

IP  NP  >  1  THEN  S  P -  >QU  A  LIP  F WP 

ELSE  R  EPORT (  I  )  QLIST  —  WQ ; 

S  P  —  WQ  , 

NP  —  NP  4  1  ; 

END.  /•  J  •/ 

l  -  I  i  1  . 

END  .  / •  KND  IP  S  •  / 

END  .  /  •  S  •  / 


ST  I  TP.M(  J  ) 
ST  I  TRM(  J  ) 
STITRMI  J  ) 
ST  I  TRM(  J  ) 
ST  I TEM(  J  ) 
ST  I TRM(  J  ) 
ST  I TRM(  J  ) 
ST  I TRM(  J  ) 


ST  I  NAM 
S  PORMA 
SDRNAM 
S  LOO  I  D 
SPAS  SW 
SFU  L N A 
S  T  1  D  E  S 
SII  I  UGH 


)  S  PATH (  K ) 


END  YU  I  N I  T  . 


:£ 


m 

m 

■fir 

KB 


N* -VV 

>  .  >  l  r. 


!W 
j  v  . 
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ZU  I  F  : 


PROCEDURE  OPTIONS  (MAIN); 


PROJECT:  REPORT  GENERATOR 

PROGRAMMER:  DEPARTMENT  OP  COMPUTER  SCIENCE 

UNIVERSITY  OP  ILLINOIS 


P I LENAMB : 
LANGUAGE : 
DEPBNDENC 1 ES 


DEC  I  S  I ONMAKBR  PL  I 
PL / I  UNDER  CMS 
ACCES  SD 1 CT I  ON ARY  .  PL  I 


DATE 

/ 


DECEMBER,  10H 


/•  THIS  MODULE  DETERMINES  WHICH  STANDARD  REPORTS,  IF  ANY, 
MATCH  THE  USER’S  QUERY,  AND  THEN  PORMPTS  THE  USER  TO 
SELECT  EITHER  THE  STANDARD  REPORT(S),  OR  A  NON-STANDARD 
REPORT  TO  BE  PRODUCED  THE  USER  ALSO  HAS  THE  CHOICE 
OP  NOT  GENERATING  ANY  REPORT.  FOR  A  STANDARD  REPORT, 
THE  INFORMATION  --  TARGET  AND  QUALIFIER  DATA  ITEMS, 

AND  REPORT  FORMAT(S)  --  NEEDED  IS  PASSED  TO  THE  ACTUAL 
REPORT  GENERATOR,  IE.  THE  BACKEND.  •/ 


DC  L  R I  PR  PILE  OUTPUT  SEQUENTIAL  ENV (  P (  2  3  0  )  ) 
RIFD  PILE  OUTPUT  STREAM  ENV( P( 114 ) ) ; 


/• 

/• 


REPORT  FORMAT  PILE 
DATA  I TEM  PILE  • / 


DC  L 
DC  L 
DC  L 
DC  L 
DC  L 
DC  L 

DC  L 
DC  L 


ZACSD3  ENTRY  EXTERNAL; 
NULL  BUILTIN; 

DATE  BUILTIN; 

TIME  BUILTIN; 

SUBSTR  BUILTIN; 

INDEX  BUILTIN; 


/*  DICTIONARY  ACCESS 


DC  L 


REPNO  DEC 
1  SREPORT 
2  SR  I  D 
S  P  NAME 
SDES 
ST.NUM 


FIX  ED (1)  I  N I T (  2  )  ; 

/# 
/* 
/* 
r 
/• 
/• 

TARGET 


FIXED( 2 ) 
CHAR (32) 
CHAR (72) 
FIX  ED (  2  ) 
SQ.NUM  F I  X  ED (  2  ) 
ST  I TEM(  10). 


r 


/•  RESPONSE  NUMBER  •/ 
SR  DEF  TEMPLET  •/ 
REPORT  ID  •/ 

REPORT  NAME  •/ 
DESCRIPTION  •/ 

NUMBER  TARGET  ITEMS  •/ 
NUMBER  QUALIFIER  ITEMS 
A  QUALIFIER  ITEM  LIST 


DC  L  I 


3  ST  I  NAM  CHAR (12). 

/• 

ITEM  NAME  •/ 

3  SFORMA  CHAR ( 10), 

/  • 

FORMAT  •/ 

3  S  D  BN AM  CHAR (  8  )  , 

/  • 

DATABASE  •/ 

3  SLOGI D  CH AR (  •  )  , 

/• 

LOGON  ID  •/ 

3  S  PAS  S W  CHAR (  •  )  , 

/  * 

PASSWORD  •/ 

3  SPULNA  CHAR (32), 

/• 

FULL  NAME  •/ 

3  ST  I DES  CHAR (72), 

/  • 

DESCRIPTION  •  / 

3  SHE  1 GH  FIXED)  2)  , 

/• 

LENGTH  OP  ACCESS  PATH  •/ 

3  S  PATH (  4  )  CHAR (  B  )  ; 

/• 

ARRAY  OF  PARENT  SEGMENTS 

T 1 TEM. 

2  NAME 

CHAR (12) 

/• 

ITEM  RECORD  FOR  RIF.D  •/ 

2  FORMAT 

CHAR (10) 

2  D  BN  A  ME 

CHAR (  S  ) 

2  LOO  ID 

CHAR ( • ) 

2  PASS  WD 

CHAR ( • ) 

2  F  NAME 

CHAR (32) 

2  DES 

CHAR (72) 

2  HEIGHT 

P I CTURE  *00*. 

2  PATH ( 4 ) 

CHAR (  •  )  . 

/  • 

ACCESS  PATH  ARRAY  •/ 

RIPRRC, 

/  ♦ 

RIF.R  RECORD  •/ 

2  SR  1  D 

P 1 CTURE  ’  9  9  ’ 

/  • 

REPORT  ID  #/ 

2.  QUL.NO 

2  QUAL ( ft ) 

P 1 CTURE  *00*. 

/  • 

NUMBER  QUALIFIERS  •/ 

3  QNAME 

CHAR (12), 

/  • 

QUAL 1 F 1 ER  NAME  • / 

3  QV  ALU 

CHAR (  12)  . 

/  ♦ 

QUALIFIER  VALUE  */ 

3  QV  ALB 

CHAR (12). 

3  QINDEX 

P 1 CTUR E  ’  9 0  0  * 

/  • 

QUALIFIER  INDEX  •/ 

3  QP  LAO 

P 1 CTUR  E  ’  0  * 

/  * 

QUAL 1 F I ER  FLAG  • / 

2  TI.NO 

P 1 CTURE ’  99  '  , 

/• 

NUMBER  TARGET  ITEMS  • / 

2  TINDEXf 

10)  PI CTUR  E  *  9 9  9 

/•  INDEX 

ARRAY  TO  TARGET  ITEMS  •/ 

REPORT( 3)  STATIC  EXTERNAL, 

/•  WORKING  RECORD  FOR 

2  P  NAME 

CHAR (32), 

/  • 

FULL  NAME  •/ 

2  DES 

CHAR (72), 

/  • 

DESCRIPTION  •/ 

2  T  _  NUM 

F  1  X  ED (  2  )  , 

/  • 

NUMBER  OF  TARGET  ITEMS  • 

2  TL  1  ST 

PO 1  NT  ER  , 

/• 

TO  TARGET  ITEM  LIST  •/ 

2  Q.NUM 

P1XED(  2  )  , 

/• 

NUMBER  QUALIFIER  ITEMS  • 

2  QL  I  ST 

POI NT  ER  , 

/  * 

TO  QUALIFIER  LIST  •/ 

SR 
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2  FACTOR  FIXED) 1) ,  /*  MATCH  FACTOR  •/ 

2  WANTED  BIT) 1 ) ;  /•  WANTED  TO  BE  PRODUCED  •/ 

DC  L  I  TARGET  BAS  ED ) WT )  ,  /•  NODE  OF  TARGET  ITEM  LIST  •/ 

2  NAME  CHAR)  I  2  |  , 

2  FORMAT  CHAR) 10) . 

2  DDNAME  CHAR ( 8 ) . 

2  LOG  I D  CHAR (  8 )  . 

2  PAS  SWD  CHAR (  8  )  , 

2  F  NAME  CHAR (32), 

2  DES  CHAR (72), 

2  HEIGHT  FIXED)*) . 

2  PATH ( 4 )  CHAR ( 8 ) , 

2  MATCH  BIT) I )  INIT('O'B), 

2  FWP  POINTER,  /•  NEXT  TARGET  ITEM  •/ 

DCL  1  QUAL1F  BASED(WQ),  /•  NODE  OF  QUALIFIER  LIST  •/ 

2  NAME  CHAR (12), 

2  FORMAT  CHAR (10), 

2  DBNAME  CHAR ( 8 ) , 

2  LOG  I D  CHAR (  8  )  , 

2  PAS  SWD  CH AR )  8  )  . 

2  FNAME  CHAR (32), 

2  DES  CHAR) 72), 

2  HEIGHT  FIXED)!). 

2  PATH) 4 )  CHAR ( 8 ) , 

2  V A  LU  CHAR (12), 

2  VALB  CHAR (12), 

2  I NDEX  FIXED) 3 ) . 

2  FLAG  FIXED) I) , 

2  MATCH  nlT(l)  INIT(OB), 

2  FWP  POINTER;  /•  NEXT  NODE  •/ 

DCL  (S.RID)  BIT(l)  INIT('IB);  /•  REPORT  ID  •/ 

DCL  RK  POINTER;  /*  TO  QUERY  LIST  •/ 

DCL  ( TGHEAD , QUHEAD )  POINTER  STATIC  EXTERNAL; 

/•  TARGET  AND  QUALIFIER  HEAD  OF  LIST  •/ 

DCL  FORMLENG  DEC  FIXED)  2)  I  N  I  T  (  -4  0  )  ,  /  *  FORMAT  LENGTH  •/ 

FORMWD(RO)  CHAR ( FORMLENG )  VARYING, 

/•  FORMAT  FOR  DATA  DICTIONARY  ACCESS  •/ 

DCL  (SN1.SN2.SN3)  BIT(l)  I N I T ( ’ 0 ’ B ) ; 

/•  EXACT  MATCH,  PARTIAL  MATCH,  NO  MATCH  • t 
DCL  CASE.NO  FIXED) 1), 

PN( 8 )  FIXED) I | , 

/•  PN( I )  -  NUMBER  REPORTS  WITH  MATCH  FACTOR  —  I  •/ 

DCL  WANT  CHAR (10)  VARYING  INIT('). 

DCL  YESORNO  CHAR ( 4 )  INIT( ’ ' ) . 

DCL  1  YTARGET  R A S ED ( CURB .TARGET _ PT )./ •  NODE  OF  TARGET  ITEM  LIST  •/ 

2  STCOUNT  FIXED) 2).  /•  NUMBER  OF  ASSOCIATED  •/ 

/•  INTERNAL  KEYWORDS  •/ 

2  MATCH  B I T ( 1 ) . 

2  STGPTR  POINTER,  /•  TO  INTERNAL  KEYWORD  LIST  •/ 

2  NEXTTC.  POINTER,  /•  NEXT  TARGET  ITEM  •/ 

DCL  1  YQUALI  BAS  ED  (  CURR.QUAL  I  _PT  )  ,  /  •  NODI.'  OF  QUALIFIER  ITEM  LIST  •/ 
2  SQCOUNT  FIXED) 2),  /♦  NUMBER  OF  ASSOCIATED  •/ 

/•  INTERNAL  KEYWORDS  •/ 

2  QVALUEU  CIIAR(  12).  /»  QUALIFIER  VALUE  •/ 

2  QVAI.KF.il  CHAR  (12), 

2  MATCH  II  I  T  (  I  )  , 

2  SQUPTK  POINTER.  /*  TO  INTERNAL  KEYWORD  LIST  •/ 


2  NKXTQU  POINTER, 

VSKWDI.  IIASEIX  C'DRR.SKWn.PT  I  . 
2  I K  COUNT  DEC  FIXED)!), 

2  I  KI'TR  PO  I  NTKH  . 

2  NE.XTSK  POINTER. 


/»  NEXT  QUALIFIER  ITEM  •/ 

•  USER  SEARCH  KEYWORD  RECORD  •/ 
/•  NUMBER  INTERNAL  KEYWORDS  •/ 
/•  NEXT  INTERNAL  KEYWORD  •/ 

/•  NEXT  USER  KFYWORD  •/ 


INKWDRF.C  BA  S  ED  |  CURR  _  I  NKWDRF.C  _  PT  )  ,  /  •  INTERNAL  KEYWORD  RECORD 

2  I  NKWDF  CIIAR(  12)  VARYING,  /•  INTERNAL  KEYWORD  */ 

2  NEXTINKWD  POINTER,  /•  NEXT  INTERNAL  KEYWORD  •/ 

INDEX  DEC  FIXED) 8 )  INIT(I), 


COUNT  OF  THE  TOTAL  NUMBER  OF  TARGET  AND  QUALIFIER  ITEMS  PROCESSED 


DCL  I  F  I  X  P.D  (  1  ) 


MAIN  PROCEDURE 


IF  TGHEAD  -  NULL  THEN  BEGIN 
PUT  SKIP, 


/•  NO  TARGET  ITEM  GIVEN  •/ 


.■wwy 


DISPLAY! ’ IF  YOU  NEED  HELP,  TYPE  HELP); 

DISPLAY) 'OTHERWISE,  TYPE  RETURN  KEY  TO  ENTER  QUERY  AGAIN' ) 
REPLY ( WANT ) ; 

IF  WANT— HELP'  THEN  CALL  HELP; 

ELSE  IP  WANT—''  THEN  GO  TO  U I P END ; 

ELSE  BEGIN; 

DISPLAY! 'BAD  INPUT,  DO  IT  AGAIN'); 

GO  TO  DO; 

END  ; 

GO  TO  DEND; 

END  , 

D1  DO  I— 1  TO  REPNO;  /•  COUNT  MATCH  PACTOR  •/ 

CALL  MTSR(I);  /•  COUNT  MATCH  PACTOR  •/ 

IP  SN1  THEN  REPORT!  I  )  .  PACTOR  — I  ;  /•  EXACT  MATCH  •/ 

ELSE  IP  S  N  2  THEN  R EPORT (  I  )  .  P ACTOR — 2  ;  /•  PARTIAL  MATCH  •/ 

ELSE  REPORT ( I ). FACTOR— 3 ;  /•  NO  SR  MATCHED  •/ 

END  D 1  ; 

D  2  PN— 0  ;  /•  COUNT  NUMBER  OP  MATCHED  REPORTS  •/ 

DO  I— I  TO  REPNO; 

IP  REPORT!  I  ).  PACTOR  —  I  THEN  PN  (  I  ) — PN (  1  )  +  1  ; 

IP  REPORT!  I  ).  PACTOR  —  2  THEN  PN (  2  ) — PN  (  2  )  +  1  ; 

IF  REPORT! I )  PACTOR-3  THEN  PN ( 3 ) -PN ( 3 ) + 1 ; 

END  , 

IP  PN ( 1 )  >  0  THEN  BEGIN, 

CALL  CHOS 1  I  ,  PN(  I  )  )  ; 

GO  TO  DEND, 

END  , 

ELSE  IP  PN | 2 |  >  0  THEN  BEGIN, 

CALL  CHOS ( 2 . PN( 2 ) ) , 

GO  TO  DEND ; 

END  ; 

ELSE  IP  PN ( 3 )  >  0  THEN  BEGIN; 

CALL  CHOS ( 3 , PN ! 3 ) ) ; 

GO  TO  DEND 
END  , 

ELSE  CALL  ERR OR _H A ND L E 1 ; 

DEND 


/ . . 

/•  ^ 

/•  PROCEDURE  CHOS  •/ 

/•  #/ 

/♦  PURPOSE  THIS  PROCEDURE  INFORMS  THE  USER  WHETHER  •/ 
/•  AND  TO  WHAT  DEGREE  HIS  QUERY  MATCHES  ANY  •/ 

/♦  ANY  OP  THE  STANDARD  REPORTS  IT  THEN  •/ 

/•  PROMPTS  THE  USER  TO  SELECT  EITHER  ONE  OR  •/ 

/•  MORE  REPORTS  OF  THE  DISPLAYED  REPORTS,  •/ 

/•  OR  A  NON-STANDARD  REPORT  ♦/ 

/*  •/ 

/ . . . . . / 


CHOS  PROCEDURE! FACTOR , PN) , 

DC  L  ( FACTOR , PN ,!, J )  FIXED)  1  )  , 

DCL  RID  B I T (  I  )  ; 

DCL  SRF  B I T ( 1 ) . 

DCL  CASE! 3)  LABEL; 

RID—  ' 1 ‘ B .  /•  SR  •/ 

GO  TO  CAS E( FACTOR ) . 

/•  CHOOSE  EXACTLY  MATCHED  SR  •/ 

CASE) I )  I -I . 

PUT  SKIP  EDIT  (’FOLLOWING  STANDARD  REPORT(S)  SATISFY  YOUR  QUERY)  (A), 
DO  J— I  TO  REPNO, 

IF  REPORT) J)  FACTOR-1  THEN  BEGIN, 

CALL  LTSR (  J  ,  I  )  ; 

I  -  I  +  1  ; 

IF  I  >  PN  THEN  GO  TO  Cl; 

END  ; 

END  ; 

Cl  CALL  SURE) I , SRF) , 

IF  SRF  —  •  I  1  B  THEN  CALL  WRIP(RID)  , 

GO  TO  CEND, 

/•  CHOOSE  PART  I  A  L  Y  MATCHED  SR  •/ 

CASE)  2  )  I  — 1  ; 

PUT  SKIP, 

PUT  SKIP  EDIT)  THERE  ARE  NO  STANDARD  REPORTS  *)(A); 

PUT  SKIP  EDIT  (WHICH  EXACTLY  MEET  YOUR  REQUEST)  (A), 

PUT  SKIP  EDIT  (-THE  FOLLOWING  STANDARD  REPORTS)  (A), 

PUT  SKIP  EDIT  (ALL  PARTIALLY  SATISFY  YOUR  QUERY)  (A), 
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DO  l—l  TO  REPNO ; 

IK  REPORT! J)  PACTOR-2  THEN  BEGIN; 

CALL  LTSR(  J  .  I  )  ; 

I  -  I  +  1  ; 

IK  I  >  PN  THEN  OO  YO  CS, 

END  ; 

END  ; 

CJ :  CALL  SURE( 2 , SRK | ; 

I K  SRK—’ I ' B  THEN 
CALL  WRIK(RID) ; 

ELSE  BEGIN; 

PUT  EDIT  ('DO  YOU  WANT  TO  GENERATE  A  NON-STANDARD-) 

(  A)  ; 

PUT  SKIP  EDIT  ('REPORT?  (YES/NO)')  (A); 

CALL  YORN( YESORNO) ; 

IK  YESORNO— ' YES '  THEN  DO; 

RID  —  ' 0 ' B ; 

CALL  WRIK(RID); 

END  ; 

ELSE  GO  TO  UIKEND; 

END  ; 

CO  TO  CEND, 

CASE) 3);  DISPLAY! 'NO  STANDARD  REPORTS  SATISFY  YOUR  QUERY'); 

DISPLAY  ( • WOULD  YOU  LIKE  TO  HAVE  A  NON-STANDARD  REPORT?'), 
D I  SPLAY  ( ' YES / NO ' ) ; 

CALL  YORN( YESORNO) , 

IK  Y ESORNO— ' Y ES '  THEN  DO; 

RID  —  'OB; 

CALL  WRIK(RID); 

END  , 

ELSE  GO  TO  U I F  END  , 

CEND :  END  CMOS , 


/  * 
/  * 
/  * 
/  » 
/  * 
/  * 
/  * 
/  * 
/  * 
/  * 
/  * 
/  * 
/  * 
/  • 
/  * 
/  • 
/  * 


PROCEDURE 

PURPOSE 


. . . * . / 

*/ 

MTSR  * / 

*  / 

THIS  PROCEDURE  DETERMINES  WHICH  STANDARD  •/ 

REPORTS  MATCH  THE  USER'S  REQUEST  BY  •/ 

COMPARING  EACH  TARGET  AND  QUERY  ITEM  OK  •/ 

EACH  STANDARD  REPORT  TO  THE  INTERNAL  •/ 

KEYWORD  LIST  ASSOCIATED  WITH  THE  USER'S  •/ 

REQUEST  A  MATCH  FACTOR  IS  THEN  •/ 

ASSIGNED  TO  EACH  STANDARD  REPORT  BASED  */ 

ON  THE  FOI.I.WOING  RULES  */ 

FACTOR  —  I ,  AN  EXACT  MATCH  •/ 

FACTOR  —  2,  A  PARTIAL  MATCH  */ 

FACTOR  —  3,  I K  NO  MATCH  AT  ALL  •/ 

*  / 

. . . . . / 


MTSR  PROCEDURE! P) ; 

DC  L  P  FIX  ED (  I  )  , 

DCL  (  TC  ,  QC  )  FIXED!  2),/*  NUMBER  MATCHED  TARGET  St  QUALIFER  ITEMS  •/ 
DC  L  K  FIXED(  1);  / *  NUMBER  QUERY  ITEMS  •/ 

DCL  (RL.SL.KL)  POINTER  INIT(NULL) ,  /•  TO  TRAVERSE  LISTS  •/ 

MO  TC— 0 ; 

QC  —  0  , 

SNI-'O'B, 

S  N  2  —  'OB, 

S  N  3  —  'O'  B  , 

K  —  0  ; 

RL  -  TGHEAD; 

DO  WHILE(  RL  NE  NULL  );  /*  COUNT  NO  OF  QUERY  ITEMS  •/ 

K  -  K  +  1  , 

RL  —  RL- >NEXTTG ; 

END  ; 

Ml  SL  —  REPORT(P)  TLIST,  /*  TRY  TO  MATCH  TARGET  ITMES  •/ 

DO  WHILE  (  SL  NE  NULL  ) ,  / *  FOR  EACH  TARGET  ITEM  OF  SR  •/ 

RL  —  TOHEAD , 

S  L -  >T  A  RG  ET  MATCH  —  O'B, 

DO  WHILE  (  RL  NE  NULL  |.  /•  FOR  TARGET  ITEM  IN  QUERY  LIST  •/ 

KL  —  RL - >STGPTR ; 

DO  WHILE  (KL  NE  NULL),  /•  FOR  EACH  INTERNAL  KEYWORD  •/ 

IF  S  L  -  >TARC.ET  NAME  —  KL->!NKWDF  THEN 
BEG  I  N  , 

S L - >TARGET  MATCH  —  'I'D, 

TC  —  TC  +  1 . 

OO  TO  MIA, 
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END  ; 

KL  —  K  L -  >NEXT I  NKWD  ; 

END  ; 

RL  —  R  L  -  >NRXTTO ; 

END  ; 

SL  —  SL- >TARGET . FWP ; 

END  ; 

IF  (TC-flEPORT(P)  T.NUM)  *  (K— REPORT(P) . T.NUM)  THEN  SN 
ELSE  IF  (TC  >  0)  ft  (  K  <  REPORT(P) . T.NUM)  THEN  SNl-' 1 
ELSE  I F  TC  >  0  THEN  SN2  — * I'B; 

ELSE  SN3  — *  I  ’  B ; 

/•  TRY  TO  MATCH  QUALIFIER  LIST  •/ 

/♦  IF  MATCH,  SET  FLAG  AND  COPY  THE  VALU 
SL  —  REPORT (  P )  . QL I  ST ; 

DO  WHILE  (SL  NE  NULL);  /•  FOR  EACH  QUALIFIER  OF  SR 


1  — ’  1  ’  B  ; 

*  B; 


DO  WHILE  (SL  NE  NULL);  /• 

RL  -  QUHEAD ; 

S L - >QUAL I F  MATCH  —  ’  O’B; 

S L - >QUAL I F  FLAG  —  0; 
SL->QUALIP  VALU  - 
S L - >QUAL I F  VALB  — 

DO  WHILE  (RL  NE  NULL);  /• 
KL  —  RL - >SQUPTR ; 

DO  WHILE  (  KL  NE  NULL);  /• 
IF  S  L -  >QU A  L I F  NAME  -  KL 
BEG  I N ; 

S L - >QUAL I F  MATCH  —  ’1 
S L * >QUAL I F  F LAO  —  I; 


ES  •  / 

•/ 


FOR  QUALIFIER  IN  QUERY  LIST  •/ 


•  FOR  EACH  INTERNAL  KEYWORD 


> I NKWD  F  THEN 


S L - >QUAL I F  MATCH  —  ’l’B; 

S L * >QUAL I F  F LAG  —  1; 

SL->QUALIF  VALU  —  R  L -  >QV  A  LU  EU  ; 
SL-  >QUALIP  VALB  —  RL*  >QVALUEB, 
QC  -  QC  +  1 ; 


QC  -  QC  +  1 ; 

GO  TO  M3 A ; 

END  i 

KL  —  KL - >NEXT I NKWD , 
END  ; 

RL  —  RL - >NEXTQU ; 

END  , 

SL  -  SL- >QUAL I F  PWP , 

END  . 

END  MTSR; 


PROCEDURE : 


PURPOSE 


THIS  PROCEDURE  REQUIRES  THE  USER  TO 
VERIFY  OR  CONFIRM  HIS  EARLIER  SELECTION 
OF  THE  SPECIFIC  REPORT(S)  TO  BE 
GENERATED 


PROCEDURE! F , SRF ) ; 
DC  L  F  FIXED!  I 


F 

FIXED( 1 ) . 

SRF 

B  1  T  (  1  )  ; 

A 

CHAR ( 1 ) . 

C 

CHAR ( REPNO* 2 ) 

SR  I  D 

CHAR (20). 

I 

FIX  ED (  2  )  . 

N 

FIXED(  1  )  . 

FLAG 

BIT(  1  )  . 

1  ND 

B  1  T  (  1  )  , 

BAD. 

REQ  B!T(  1  ) 

YES 

BIT(  1)  1 N I T (  *  1  ’ 

NO  B 

I  T  (  1  )  1  N  1  T  (  ’  0  '  ) 

TO 

REPNO ; 

C— ’  12*; 

DO  I— I  TO  REPNO; 

1 F  REPORT ( I ) . FACTOR 
SUBS  TR ( C .  I  ,  1  )  — 

END  . 

FLAG-YES . 

I ND— YES . 

BAD.REQ  —  NO, 

DO  WHILE  ( FLAG ) ; 

S  0  : 

IF  BAD.REQ  —  NO  THEN 
GOTO  S 1 . 


BAD.REQ  —  NO; 


v'vSP 

vv/V 

"  *  -  M>  W 


V  V  \ 

/vV\ 

,n>v. 

• 


isi 


iBBfB 


■■■■i*BvvvfVfVfiv*v*ivPHvgvnnvi 


nmnvmmmwinww 


S  £ 


PUT  SKIP  EDIT  |  THE  FOLLOWING  RKPORT(S)  SATISFY  YOUR  QUERY :  * ) 
(  A  )  , 

DO  1—1  TO  R  El* NO  , 

IF  (REPORT! I )  FACTOR  —  F)  THEN 
PUT  EDI T(  I  )  (  F  (  3  )  )  . 

fcND  . 


DO  I— l  TO  REPNO; 

REPORT! I )  WANTED  —  ’O’B. 

END 

PUT  SKIP. 

PUT  SKIP. 

DISPLAY!  ’WHICH  OF  THE  ABOVE  REPORT!  S)  DO  YOU  WANT  T 
SR  I D- '  *  . 

DISPLAY!  '  TYPE  WANTED  R  EPORT  ID  (E  G  l.2, 

IF  ( I ND )  THEN  DO, 

DISPLAY  (  *  OR  TYPE  ?  FOR  MORE  DESCRIPTION 

DISPLAY  (’  OF  THE  REPORT! S)); 

I ND-NO 
END  . 

DISPLAY!  * 

DISPLAY! ‘ 

REPLY | SRID) . 

PUT  SKIP. 

SELECT! SRID) . 

WHEN  (  * QU IT)  DO 
PUT  SKIP. 

PUT  SKIP  EDIT!  REPORT  GENERATOR  EXITED  AT  USER 
(  A  )  . 


)  . 


'  )  ; 


OR.  TYPE  RETURN  KEY 
OF  THESE  REPORTS’) 


F  YOU  DON’ ’T  LIKE  ANY 


)  . 


S  REQUEST ’ ) 


CHECK  REQUEST  •/ 


STOP  . 

END  . 

WHEN! ’ ’ )  DO . 

SRF-O’B. 

FLA'  -NO  , 

END  . 

WHEN(  1  *  *  |  DO  . 

J  --  I  . 

DO  1-1  TO  REPNO. 

IF  REPORT ( I )  FACTOR  -  F  THEN  DO. 

CALL  LTSRF | I . J ) ; 

J  -  J  +  1  ; 

END  . 

END  ; 

END  . 

OTHERWI  S  E  DO . 

DO  I —I  TO  20. 

A  —  ’  *  . 

A  —  SUBS TR (SRID. I. 1); 

I F  ( | A  NE  '  )  AND  (A  NE  * , ’ ) )  THEN 

BEG  I  N ; 

N  —  I NDEX ( C . A ) . 

IF  N— 0  THEN 
BEGIN; 

PUT  SKIP  EDIT! 'REPORT  ID  A.  ’  IS  NOT  ’)  (A. A. A); 

PUT  SKIP  EDIT! ’ONE  OF  YOUR  ABOVE  SPECIFIED  OPTIONS . ’ ) 

(  A  )  . 

BAD.REQ  —YES, 

END  . 

ELSE  REPORT ( N )  WANTED  —  ’ l’B; 

END  . 

END  . 

IF  BAD.REQ  THEN 
BEG  I  N ; 

PUT  SKIP; 

PUT  SKIP  EDIT  (’TRY  IT  AGAIN  *  )  (A); 

PUT  SKIP. 

GOTO  S  0  . 

END  ; 

PUT  SKIP. 

DISPLAY! ’YOU  HAVE  SELECTED  THE  FOLLOWING  STANDARD  REPORTS’); 
DISPLAY  (’FOR  GENERATION ’) , 

J  —  I  . 

DO  I— I  TO  REPNO. 

IF  REPORT!  1  |  WANTED-’  1  'B  THEN  DO; 

CALL  l.TSR  (  I  ,  J  )  , 

J  —  J  +  1  . 

END  , 

END  . 

PUT  SK I P , 

DISPLAY!  IS  THIS  LISTING  CORRECT  ?’); 

CALL  YORN ( Y ESORNO ) . 
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RE 


■ » ^  ■ 
s& 


■«v 


-'.A 


* 


V.N 


.  •  »  •  ^  ' 


V.V’. 

vv- 


v:. 


•.*  yf  *  ■ 


v 


v.v 


AV.V  */ VkV v.v  V*/.*/  V  V  V  V  >  *,*  V  V  /  V  V  V  ’/  ’  * » 


IF  YESORNO— ’ YES  *  THEN 
BEG  I N ; 

SRF  —  ' 1 1 B ; 

E  LAG— NO , 

END  ; 

END;  /‘END  OTHERWISE  */ 
END ;  /•  END  SELECT  •/ 

END,  /*  WHILE  F  LAG  •/ 

SEND:  END  SORE ; 


/*  PROCEDURE:  LTSR  */ 

/*  */ 

/•  PURPOSE  THIS  PROCEDURE  DISPLAYS  ON  THE  USER'S  •/ 

/«  TERMINAL  A  LIST  OF  THE  MATCHING  •/ 

/•  STANDARD  REPORTS  •/ 

/*  */ 

/ . . 


LTSR:  PROCEDUR E<  R I D  ,  P )  ; 

DC  L  (RID,  P )  FIXED(  I)  , 

IF  P—1  THEN  DO; 

PUT  SKIP  EDIT  ('REPORT  ID'.’R  EPORT  FULL  NAME  )  (R(FMI)); 

PUT  ED  I  T  (  (  4  5  )  '  -  '  )  (  COL(  1  )  ,  A<  45  )  )  , 

END  ; 

PUT  SKIP  EDIT  (  R I D  , REPORT  (  R I D i  FNAME )  (  R (  F  M2  )  )  ; 

FMI  :  FORMAT  (  X  (  2  )  ,  A  (  »  )  ,  X  (  2  )  ,  A )  ; 

FM2  FORMAT ( X ( 2 ) , F ( « ) , X( 2 ) , A ) , 

END  LTSR ; 


/*’ 

/* 

/  * 
/* 

/  * 

/  * 

/  * 

/  * 
/“ 


PROCEDURE:  LT  SRF 


PURPOSE : 


THIS  PROCEDURE  DISPLAYS  ON  THE  USER'S 
TERMINAL  A  LIST  OF  THE  MATCHING 
STANDARD  REPORTS  AND  THEIR  DESCRIPTIONS 


LTSRF 

PROCEDURE) R 1 D , P ) ; 

DC  L  (  R  I D  ,  P )  F  1  X  ED (  1  )  ; 

DC  L  DESTMP  CHAR(72), 

D  ES  C (  7  2  )  CHAR (  1  )  DEFINED  DESTMP; 


DESTMP— REPORT (RID)  DES , 

I F  (  P— I  )  THEN  DO ; 

PUT  SKIP  EDIT( 'REPORT  ID’ , 'REPORT  FULL  NAME’ , 

•REPORT  DESCRIPTION')  ( COL (  l  )  , X (  2  )  , A (  1  )  , X (  1 0  )  , A (  I «  )  , X (  I  0  )  , A ) 
PUT  ED  I T (  (  7 2  )  ’  -  ’  )  ( COL (  I  )  .  A (  7 2  )  )  ; 

END  . 

PUT  ED  I T (  R I D  .  R  EPORT (  RID)  FNAME,  DESC(  I)) 

( COL  (  1)  ,  X  (  6  )  ,F(2)  ,X(6)  ,  A (  3  2  )  ,  X (  2  )  ,A(  1)  )  ; 

DO  J— 2  TO  2  b  ; 

PUT  ED  I T (  DESC (  J  )  )  (  A (  1  )  )  , 

END  . 

DO  I  —  l  TO  2  , 

IF  (  SUBSTR (  DESTMP .  2 •  +  (  I  -  1  )  •  2 6  ,  2  b  )  NE  (25)'  ')  THEN  DO, 

PUT  SKIP. 

PUT  ED  I T (  '  '  )  ( COL (  4  7  )  , A (  I  )  )  ; 

K  — 2  «  +  I  •  2  S  -  I  , 

IF  (K  GT  72)  THEN  K— 7 2 ; 

DO  J  — 2 •  +  (  I  -  1  )  • 2 6  TO  K;; 

PUT  ED  I T ( D  ES  C (  J  )  )  (  A (  1  )  )  ; 

END  , 

END  , 

END  ; 

END  LTSRF . 


/*' 

/• 

/* 

/  * 

/  * 

/  » 


PROCEDURE  YORN 


PUR  POS  E 


THIS  PROCEDURE  PROMPTS  THE  USER  TO  INPUT 
'YES',  'NO'  OR  -QUIT' 


’*/ 

*  / 
*  / 
*  / 
*  / 
•  / 
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/ 

/ 


/ 

/ 


PROCEDURE*  YN )  ; 

DC  L  YN  CHAR (  4  )  ; 

YN  -  *  ’  ; 

DO  WH  I  L  E (  (  ( Y  N  NE  ’YES’)  AND  (YN  NE  ’NO*))  AND  (  YN  NE  QUIT’)); 
D 1  SPLAY (’ TYPE  YES/NO’)  REPLY ( YN )  ; 

END  ; 


IF  YN  —  ’QUIT*  THEN 
DO  , 

PUT  SKIP; 

PUT  SKIP; 

PUT  SKIP  EDIT  (’REPORT  GENERATOR  EXITED  AT  USER ’ ’ S  REQUEST’) 

(  A  )  ; 

STOP  ; 

END  ; 

END  YORN; 


PROCEDURE  ERROR .HANDLE  1 


PURPOSE  THIS  PROCEDURE  WILL  EVENTUALLY  DEAL 
W!  TH  ERRORS  . 


ERROR .HAND L El : 

PROCEDURE , 

DISPLAY*  ’ NOW  DEAL  WITH  ERRORS’) 
END  . 


PROCEDURE : 


PURPOSE : 


THIS  PROCEDURE  WRITES  THE  TARGET  AND 
QUALIFIER  DATA  ITEMS  ASSOCIATED  WITH  THE 
REQUESTED  REPORT(S)  INTO  THE  FILE  RIFD 
IT  ALSO  WRITES  THE  REPORT(S)  FORMAT  INTO 
THE  FILE  RIFR  IN  THE  CASE  OF 
NON- STANDARD  REPORTS 

NOT  YET  IMPLEMENTED 


PROCEDURE! R I D ) ; 

DC  L  RID  BIT(  I  )  . 

P  PO I  NT  ER  , 

F  1  LENAM  CHAR (  6  )  . 

(  I  ,  J  ,  K )  F!XED(  2) 
DC  L  ONCODE  BU I  LT I  N  ; 


OPEN  FILE(RIFR). FILE (RIFD); 

ON  RECORD  (RIFR) 

BEG  I N . 

PUT  SKIP, 

PUT  SKIP  EDIT! ’•••••  RECORD  CONDITION  RAISED  IN  WRITING 
FILE  •••••  ’ , F 1 LENAM) ( A , A ( « ) ) . 

PUT  SKIP  EDIT( ’  REPORT  IGNORED’ ) 


ONCODE ) ( A , F ( 2 ) ) ; 


FILE  •••••  ,  F  1  LENAM)  ( A  ,  A (  «  )  )  . 

PUT  SKIP  EDIT( ’  REPORT  IGNORED’ ) 

I  A  ,  F  (  1  )  ,  A  )  ; 

PUT  SKIP  EDIT!’  ON  CODE  —  ' , ONCODE) ( A , F ( 2) ) 

END  ; 

IF  RID-TB  THEN  /•  SR  •/ 

BEG  I N ; 

DO  I —1  TO  REPNO ; 

IF  REPORT ( I )  WANTED— ’ 1 ’ B  THEN 
BEG  I N , 

/•  MOVE  REPORT  DATA  TO  TITEM  •/ 

P  —  REPORT (  I  )  TL I  ST ; 

J  —  0  , 

DO  K  — I  TO  1  0  ; 

T I NDEX ( K )  —  ’ ’ ; 

END  ; 

DO  WHILE( P  NE  NULL); 

/•  MOVE  TARGET  ITEM  DATA  TO  TITEM  RECORD  •/ 


m 

m, 


m 

hi 


Bra 

WTO 


T1TEM  NAME  —  P -  >T  ARG  ET  NAME. 

T I T  EM .  FORMAT  —  P-  >TARGET  FORMAT ; 

TIT  EM .  DBNAME  —  P-  >TAROET  DBNAME  ; 

TITEM  LOQID  —  P -  >TARG ET  LOG  I D ; 

TIT  EM  .  PA  S  S  WD  —  P  -  >T  ARG  ET  PA  S  S  WD  ; 

TITEM  FNAME  —  P - >T AR O ET . F N AME ; 

TITEM. DBS  —  P- >TARGET  DES ; 

TITEM  HEIGHT  —  P •  >T ARG  ET  .  HEIGHT ; 

TITEM  PATH  —  P - >T ARG ET . PATH ; 

PUT  F ILE(RIFD)  ED  I T  (  T I T EM  NAME )  |COL(  I)  ,A(  1I|  )  ; 

PUT  FILE(RIFD)  ED  1 T ( T I TEM  FORMAT )  (A(10)), 

PUT  FILE(RIFD)  ED  I T| T ITEM. DBNAME)  (A(*)), 

PUT  FILE(RIFD)  ED  I T  (  T I T EM  LOG  1 D )  (A(*)); 

PUT  FILE(RIFD)  ED  I T ( T I T EM  PA S S WD )  (A(*)); 

PUT  F  I  1.  E(RIFD)  ED  I  T<  T  I  TEM.  FNAME  )  <A(32)(; 

PUT  FILB(RIFD)  ED  I T( T I TEM. DES  )  (A(72)); 

PUT  FILE(RIFD)  ED  I T  <  T 1 T EM  H E 1 GHT )  <F(2)); 

PUT  FILE(RIFD)  ED  I T ( T I T EM .  PATH )  (4  A(S)); 

F I LENAM  —  ’ R I FD ’ ; 

TINDEXI  J  +  1  )  —  I  INDEX; 

I  I  ND  EX  —  I  I  ND  EX  +  I  ; 

J  —  J  +  l  ; 
p  _  p . >TARGET . FWP ; 

END  ; 

P  —  REPORT (  I  )  QL I  ST ; 

J  —  1  ; 

DO  K— 1  TO  5  ; 

qUAL  (  K  )  .  <3  NAME  — 
qUAL ( K )  . qVALU  —  •  1  ; 
qUAL ( K  >  qVALB  —  •  1 
QUAL(K) .qFLAG  —  0; 
qUAL ( K )  . q I NDEX  — ■  •  ; 

END  ; 

DO  WHILEI  P  NE  NULL); 

/•  MOVE  qUALIFIER  DATA  TO  TITEM  RECORD  •/ 

TITEM  NAME  —  P - >qU A L 1 F . NAME ; 

TITEM  FORMAT  —  P- >qUAL I F . FORMAT ; 

TITEM  DBNAME  —  P -  >qU A  L I F  . DBNAME ; 

TITEM  LOQID  -  P- >qUAL 1 F .  LOG  I D ; 

TITEM  PASS WD  —  P->qUALIF  PASSWD, 

TITEM. FNAME  —  P* >qUAL I F  FNAME ; 

TITEM. DES  —  P->qUALIF  DES; 

TITEM. HEIGHT  -  P->qUALIP  HEIGHT; 

TITEM  PATH  —  P - >qU A L I F  PATH ; 

PUT  FILE(RIFD)  ED1T| TITEM. NAME)  ( COL ( I ) , A ( 1 2 ) ) ; 

PUT  FILE(RiFD)  ED  I T| T I TEM.  FORMAT |  |A|I0)); 

PUT  FILE(RIFD)  ED  I T( T I TEM. DBNAME)  ( A  (  • )  )  ; 

PUT  FILE(Rt-FD)  ED  I T ( T I T EM .  LOG  I D )  (A(»)); 

PUT  FILE(RIFD)  EDIT(TITEM. PASSWD)  (A(»)), 

PUT  FILE(RIFD)  EDITITITEM  FNAME)  (A(32)); 

PUT  FILE(RIFD)  ED  I T ( T I TEM  DES  )  <A<72)); 

PUT  FILE(RIFD)  EDITITITEM  HEIGHT)  ( F ( 2 ) ) ; 

PUT  FILE(RIFD)  EDITITITEM  PATH)  (4  A ( ■ ) ) ; 

/•  MOVE  qUAL  DATA  TO  RIFREC  •/ 

QUAL ( J )  QNAME  —  P- >QUAL I F  NAME ; 
qUAL(J)  QVALU  —  p. >qUAL I F . VALU ; 
qUAL(J)  QVALB  —  P- >qUAL I F  VALB , 

QUAL(J)  qFLAG  —  P->qUALIF  FLAG; 
qUALI 1 ) . ql NDEX  —  IINDEX; 

I  I NDEX  —  IINDEX  4  I  ; 

J  —  J  +  I  ; 
p  —  P- >qUAL I F . FWP ; 

END  ; 

/•  MOVE  REPORT  DATA  TO  RIFREC  RECORD  •/ 

IF  REPORT! I )  T.NUM  —  0  THEN  GO  TO  W3 , 

RIFREC  SRID  —  I ; 

RIFBEO.TI.NO  —  REPORT! I ) . T.NUM; 

RIFREC  . QUL.NO  —  REPORT ( I ). Q.NUM; 

F I LENAM  —  • R I FR  *  ; 

WRITE  FILE  (RIFR)  FROM  (RIFREC); 

PUT  SKIP; 

END;  /•  REPORT) I )  */ 

END  ; 

END;  /•  SR  •/ 

W2  :  IF  RID-'O’B  THEN  DO; 

DISPLAY!  *  NOW  BRANCH  TO,  AS  OF  YET,  UN  I MPL EMENTED  ’); 
DISPLAY  (NON-STANDARD  REPORT  GENERATOR); 

END  ; 

/•  MOVE  qUERY  LIST  DATA  TO  RIFREC  AND  TITEM  RECORD  • 
/•  THIS  PORTION  OF  THE  PROCEDURE  IS  TO  BE  DEVELOPED 


W3  PUT  SKIP; 

CLOSE  F I LE(  R I  PR )  .  F  I  LE( R I FD )  ; 
END  WRIF ; 


. . * . . . . . . . 

/  •  *  / 

/  •  PROCEDURE  HELP  •/ 

/•  #/ 

/•  PURPOSE:  THIS  PROCEDURE  LISTS  ALL  THE  STANDARD  •/ 

/•  REPORTS  CURRENTLY  AVAILABLE  IN  THE  •/ 

/•  SYSTEM,  AND  DISPLAYS  SOME  EXAMPLE  QUERIES  •/ 

/•  •/ 

. . . . . . . . * . •*/ 


HELP 


PROCEDURE ; 


DC  L 

1  FIXED! J) ; 

PUT 

SKIP; 

PUT  SKIP  ED  I T (  ’ THE 

FOLLOWI NO 

STANDARD 

REPORTS  ARE 

AVA I LABLE : ’ ) 

(  A)  ; 

DO  1 

— 1  TO  REPNO; 

CALL  LTSR (  1,1); 

END  ; 
PUT 

SKIP. 

PUT 

SKIP  EDIT(  QUERY  EXAMPLES  INCLUDE  *)  (A); 

PUT 

SKIP; 

PUT 

SKIP  ED  I T(  ’ 

TELL  ME 

SOMETH  1 NG 

ABOUT  COST’ 

)  (  A)  ; 

PUT 

SKIP  ED  1 T(  • 

SHOW  THE 

COST  FOR 

PROJECT-B  I  2 

AND  YEAR— 1 9 9 

(  A)  ; 

PUT 

SKIP  ED  I T (  ’ 

REPORT  COST  WITH 

PRO  J  ECT— B  1  2 

AND  YEAR  — 1  OS  1 

(  A)  ; 

HELP  ; 

END 

ZUIF; 

no 


QUAL  : 


PROCEDURE  OPTIONS  (MAIN); 


PROJECT : 
PROGRAMMER : 


P I LENAME : 
LANGUAGE  : 
DEPENDENC  I 


DATE  : 


ES 


REPORT  GENERATOR 

DEPARTMENT  OF  COMPUTER  SCIENCE 
UNIVERSITY  OP  ILLINOIS 

TESTQUALI P I  ED .  PL  I 
PL /I  UNDER  CMS 
R I  PR . DATA 
R 1  PD . DATA 

DECEMBER,  1*14 


/•  THIS  MODULE  READS  IN  AND  EXAMINES  THE  REPORT  PORMAT(S)  AND 
THE  ASSOCIATED  QUALIFIER  AND  TARGET  ITEMS  CREATED  BY  THE 
FRONT  END.  IT  PROMPTS  THE  USER  TO  PILL  IN  ANY  UNSPECIFIED 
QUALIFIERS,  AND  THEN  SENDS  THE  LIST  OP  REQUESTED  REPORTS 
TO  THE  REPORT  GENERATOR  VIA  THE  PILE  I NDATA . DATA 


DCL  R I  PR  PILE  UPDATE  SEQUENTIAL  ENV ( P (  2 3 «  )  )  , 
R I  PD  FILE  INPUT  SEQUENTIAL  ENV(P(  134)  )  , 
INDATA  PILE  OUTPUT  SEQUENTIAL  ENV ( P ( • 0 ) ) 


DCL  1 


DCL  I 


DCL 

DCL 


STITEM) IS), 

/* 

TARGET  A 

QUALIFIER  ITEMS 

2  ST  1  NAM  CHAR (12), 

/* 

ITEM  NAME 

•/ 

2  SPORMA, 

/• 

FORMAT  •/ 

3  SPORMA 1  CHAR, 

3  S  FORMA  2  CHAR (  9  )  , 

2  SDBNAM  CHAR (  * )  , 

/• 

DATABASE 

*/ 

2  S  LOG  I D  CHAR (  •  )  , 

/• 

LOGON  ID 

*  / 

2  SPASSW  CHAR ( ( ) , 

r 

PASSWORD 

*/ 

2  SPULNA  CHAR ( 32). 

/• 

FULL  NAME 

•/ 

2  ST1DES  CHAR ( 72 ) , 

r 

DESCRIPTION  •/ 

2  SHE  1 GH  P  1 X  ED (  2  )  , 

/• 

LENGTH  OP 

ACCESS  PATH  •/ 

2  S  PATH (  4  )  CHAR (  •  )  ; 

r 

ARRAY  OP 

PARENT  SEGMENTS 

RIPREC, 

/• 

RIF_R  RECORD  •/ 

2  SRID  PICTURE  ■ •• • , 

r 

REPORT  ID 

•/ 

2  QUL.NO  PICTURE  *«•*, 

r 

NUMBER  OP 

QUALIFIERS  •/ 

2  QUAL ( S ) , 

3  Q  N  A  ME  CHAR (  12). 

r 

QUAL 1 P I ER 

NAME  »  / 

3  QV  A  LU  (  1  2  )  CHAR  , 

/• 

QUAL 1 F I ER 

VALUE  •/ 

3  QVALB  CHAR ( 12), 

3  Q INDEX  PICTURE  *•#»* 

.  /• 

QUAL I F I ER 

INDEX  •/ 

3  QP  LAG  CHAR, 

r 

QUAL 1 P I ER 

FLAG  •/ 

2  TI.NO  PICTURE*  99  ’ 

r 

NUMBER  OP 

TARGET  ITEMS  • 

2  T 1 ND EX (10)  PICTURE**** 

•  ;  / 

•  INDEX  ARRAY  TO  TARGET  I 

INREC, 

/ 

•  INTERNAL 

DATA  RECORD  •/ 

2  SRID  PICTURE  *  «•  *  , 

/ 

•  REPORT  ID  •/ 

2  DUMMY  CHAR (73)  INIT  ( 

'  * 

)  ; 

NVALU  CHAR (12)  INIT  (*  * 

)  ; 

NVALU 1(12)  CHAR  INIT  (’ 

1  )  i 

/ 

I  TEMS 


V 


DCL  PORMA2  CHAR(  «|  VARY  I  NO ; 
DCL  J  P I  X  ED (  2  )  ; 

DCL  LEN4  P I  X ED {  2 )  , 

DCL  I  FIX  ED (  2 )  ; 

DCL  K  P I  X ED (  2  )  ; 

DCL  CNT  FIXED  DECIMAL!  2)  ; 
DCL  UNPILL  CHAR ( 6 )  VARYING; 
DCL  EMPTY  CHAR) I |  VARYING; 
DCL  CCNT  PIXED( 2); 

DCL  REM(IO)  P I  X  ED (  2  )  ;  /• 

DCL  REMQ(IO)  P I  X  ED (  2 )  ;  /« 


/•  NUMBER  OP  MISSING  QUALIFIERS  •/ 
/•  FLAG  --  SIGNALS  P I L L ED /UNF I L L ED 
/•  PLAO  --  SIGNALS  EMPTY /NONEMPTY  " 

ARRAY  OP  INDICES  TO  MISSING  QUALIFIERS 
QUALIFIER  NUMBER  ARRAY  FOR  REM  •/ 


/“ 

/* 

/•‘ 


MAIN  PROCEDURE 


OPEN  PILE(RIPR),  PILE) INDATA) ; 
READ  PILE(RIFR)  INTO  (RIPRBC); 
INREC  SRID  -  RIPREC  SRID; 

WRITE  PILE! INDATA)  PROM  (INREC) 
IP  ( INREC. SRID  <—  0 ) 

THEN  RETURN; 


W  KT  V'  Will  VMWJinW  V.  VI  KTH5\ 


OPEN  F I LE( R I FD ) ; 

DO  I  —  1  TO  T I .NO  +  QUL.NO; 

READ  FILE(RIFD)  INTO  (STITEM(l)); 

END  ; 

UNF  ILL-*  FALSE’  ; 

CNT  —  0 ; 

DO  1  -  1  TO  QUL.NO, 

I  F  (  QF  L  AG (  I  )  -  ’O’) 

THEN  DO; 

CNT  —  CNT  +  I  ; 

REM(CNT)  —  R I PRECQUAL< I )Q I NDEX , 
R  EMQ (  CNT )  —  I  ; 

UNF ILL—’ TRUE ’  ; 

END  . 

END  ; 

I F  UNF ILL—  ’ TRUE ’ 

THEN  CALL  FILL, 

RETURN; 


/ . * . . . . . . . . . 

/•  •/ 

/*  PROCEDURE  PILL  •/ 

/•  •/ 

/ •  PURPOSE  THIS  PROCEDURE  PROMPTS  THE  USER  FOR  THE  •/ 

/•  QUALIFIERS  MISSING  FROM  HIS  REQUESTED  REPORT(S).  •/ 

/•  V 

. . * . * . . . 4 . . . / 


FILL  PROCEDUR  E ; 

PUT  SKIP  EDIT  | ’TO  COMPLETE  THE  QUERY,  YOU  MUST  SPECIFY  THE 
•VALUES  OF  THE  FOLLOWING  DATA  ITEMS’)  (A, A); 

DO  I  —  1  TO  CNT; 

J  -  RRM(  CNT)  ; 

PORMA2  —  ST  I TEM(  J  )  SFORMA  SFORMA 2  ; 

LEN4  -  LENGTH! FORMA2 ) . 

PUT  SKIP  EDIT(  STITEMI  J )  STINAM,  ’  IN  ST  I TEM(  J  )  .  SDBNAM, 

’  FORMAT  -  STITEM(  J)  S FORMA  S FORMA  1  ,  FORMA2) 

<  A (  12)  ,  A,  A (  •  )  ,  A.  A.  A(LEN4)  )  ; 

PUT  SKIP  EDIT  I’DESC:’,  STITEM( J) .STIDES)  (A,  A( 72) ) ; 

GET  EDIT! I NV ALU)  (A(I2)); 

DO  K  —  1  TO  1 2 ; 

INVALUI(K)  —  SUBSTR ( I NVALU .  K,  1); 

END 

IP  (  ST  I  TEM(  J  )  SFORMA  SFORMA  1  -  ’I  ) 

THEN  DO; 

CCNT  —  12. 

EMPTY  —  ’FALSE’; 

DO  K  —  I  TO  I  2  WHILE  (EMPTY  -  ’FALSE  ) 

I F  I NVALU l ( K )  —  ’  ’ 

THEN  DO; 

CCNT  —  K- 1 ; 

EMPTY  —  ’ TRUE ’ 

END  ; 

END  ; 

I F  ( CCNT  <  12) 

THEN  DO; 

DO  K  —  0  TO  CCNT- 1 ; 

I NVALU 1  (  1  2 - K )  —  I NVALU 1  ( CCNT  -K); 

END  . 

DO  K  -  1  TO  12- CCNT ; 

I NVALU 1 ( K )  —  ’ 

END  , 

END  , 

DO  K  —  1  TO  1 2 ; 

R I F  R  EC  QUA  L (  R  EMQ  f  1  )  )  QVALU(K)  —  INVALUl(K); 

END  ; 

END  ; 

ELSE  DO, 

DO  K  —  1  TO  12; 

R I FREC . QUAL< RRMQ( I ) )  QVALU ( K )  —  I NVALU l ( K ) ; 

END  , 

END  , 

R I FREC  QUAL ( R EMQ( I ) )  QP LAO  —  *1’, 

END  . 

REWRITE  PM.E(RIFR)  FROM  (RIFREC), 

END  FILL. 

END  QUAL, 


v-v.v.v  *.*  *.»♦,#:*  *;♦*,» 
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DEPARTMENT  OP  COMPUTER  SCIENCE 
UNIVERSITY  OP  ILLINOIS 


P I  LENA MB : 
LANGUAGE : 
DEPENDENC I ES 


INITREPORTDPNS  .  PL  I 
QUERYPARSER  PL  I 


L I NKPRONTEND . EXEC 
CMS  EXEC 

INITTHESAURUS  . PL  I 
S  ETDB I NTERPACE .  PL! 
DEC  I S I ONMAKER . PL  I 

DECEMBER,  1SS4 


•  THIS  PILE  LINKS  THE  MODULES  COMPRISING  THE  PRONT 

•  END  OP  THE  STANDARD  REPORT  GENERATOR 

• 

GLOBAL  T  PLILIB 
GLOBAL  MACLIB  DMPL 1 

LINKBDIT  PRONTENDDR I VER  INITTHESAURUS  S ETD B I  NT ERP ACE  I N I TR EPORTDEP NS  QUERYPARSER  DEC 
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E 


si 
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K 
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PROJECT  REPORT  GENERATOR 

PROGRAMMER  DEPARTMENT  OP  COMPUTER  SCIENCE 

UNIVERSITY  OP  ILLINOIS 

P I LENAMR  STANDARDREPORTGEN  EXEC 

LANGUAGE  CMS  EXEC 

DEPRNDENC I ES 

DATE  DECEMBER,  1984 


THIS  PILE  CONTAINS  THE  APPROPRIATE  COMMANDS  IN  ORDER 
TO  RUN  THE  STANDARD  REPORT  GENERATOR 


ACONTROL  OPE 
-  ONEMOR  E 

GLOBAL  MAC LIB  DMPL I 
GLOBAL  T  PL  I  LIB 

FILEDEP  SYS  IN  TERMINAL  (BLKSIZE  80) 

FILEDEP  SYSPRINT  TERMINAL  (BLKSIZE  90) 

SET  PROMPT  U 

FILEDEP  SKWDOUT  DISK  SKWDOUT  DATA  B  (RECPM  F  LRECL  80) 
FILEDEP  SRDEP  DISK  SRDEP  DATA  B  (RECPM  P  LRECL  I860) 

PI  LED BP  R1FR  DISK  RIFR  DATA  A  (RECPM  P  LRECL  238) 

P I  L  ED  EF  RIFD  DISK  RIFD  DATA  A  (RECPM  P  LRECL  184) 
FILEDEP  OR  I  PR  DISK  RIFR  DATA  A  (RECPM  P  LRECL  236) 
♦DEFINE  STORAGE  I0K 

•  I  Pl.  CMS 

♦  A  CONTROL,  OFF 
•DEFINE  STORAGE  6  4  K 

•  I  PL  CMS 

SET  LDRTIILS  07 

FILEDEP  DM IN  TERMINAL  (BLKSIZE  89) 

F  I  L  ED  EF  DMOIJT  DISK  ZAOSOUT  DATA  B  (RECPM  P  BLKSIZE  90) 

FILEDEP  DTEST  DISK  DTEST  INDEX  B  (  XT  ENT  1  0  0  0  ) 

FILEDEP  DTESTD  DISK  DTEST  DATA  B  (XT ENT  1000) 

FILEDEP  DTEST  S  DISK  DTEST  SOURCE  B  (  X  T  ENT  1  0  0  0  ) 

FILEDEP  DTESTE  DISK  DTEST  RECOVER  B  (XT  ENT  1  0  0  0  ) 

FILEDEP  DTESTJ  DISK  DTEST  LOG  B  (  X  T  ENT  1  0  0  0  ) 

FILEDEP  DTEST A  DISK  TMPWORK  FILE  B  (BLKSIZE  640) 

LOAD MOD  DM00 
YUS  I  NT  NEW 

FILEDEP  RIFR  DISK  RIFR  DATA  A  (RECPM  F  LRECL  236 

FILEDEP  RIFD  DISK  RIFD  DATA  A  (RECPM  F  LRECL  184 

FILEDEP  INDATA  DISK  INDATA  DATA  A 

•  GENERATE  REPORT 

DISKIO  READ  RIFR  DATA  A  (ITEM  1  QUIET  EOF) 

A  IF  AR  ETC ODE  NE  0  A GOTO  -PASS 
AHEAD  ARGS 

A  I  F  A  1  LE  0  AGOTO  -PASS 
QUA  I.  1 

A  STACK  C  EH LAPP  1 
ASTACK  ex  ctl 
SET  ABENDXIT  111.  I  ART 
F T  FOC 2 

SET  ABENDXIT  OFF 
ERASE  RIFR  DATA  A 
ERASE  RIFD  DATA  A 
ERASE  INDATA  DATA  A 
-PASS 
ARF.GTYPE 

SELECT  ACTION  TO  U  B  TAKEN 

1  EXECUTE  A  DIFFERENT  QUERY 

2  EXIT  FROM  THE  REPORT  GENERATOR 

A  END 

AS  PACE  1 

AHEAD  VAHS  A  A  1 

AIP  AA1  EQ  1  AGOTO  -ONEMORE 
AIP  AA 1  EQ  2  AGOTO  -ENDREP 
A  II EOT Y  PE 

I  LI.  I  CAL  INPUT  TRY  AGAIN 

A  END 

AGOTO  -PASS 
- ENDREP 
A  EX  I  T 


ACRONYMS 


CAPCES: 

CMS: 
ODD: 
DDS: 
DM: 
DSI: 
DTMS: 
FOCUS: 
HQUSACE: 
MCPRS: 
MILCON: 
OMA: 
PAX: 
QP: 
RAMP: 
RGF: 
RIF: 
SRDEF: 
TSK: 
UI: 
U  of  It 
USA-CERL: 


Construction,  Appropriations,  Programming,  Control, 
and  Execution  Systems 

Conversational  Monitoring  System 

Dictionary  of  Data  Definitions 

Data  Dictionary/Directory  System 

Decision  Maker 

Data  Systems  Interface 

Data  Traffic  Management  System 

A  database  management  system 

Headquarters,  U.S.  Army  Corps  of  Engineers 

Military  r^d  Civil  Progress  Reporting  System 

U.S.  Army  Military  Construction 

Operations  and  Maintenance,  Army 

Programming,  Administration,  and  execution 

Query  Parser 

Responsiveness  Analysis  of  Military  Programs 

Report  Generation  Facility 

Report  Information  File 

Standard  Report  Definition  File 

Thesaurus  of  Search  Keywords  and  Internal  Keywords 

User  Interface 

University  of  Illinois 

U.S.  Army  Construction  Engineering  Research  Laboratory 


USA-CERL  DISTRIBUTION 


Chief  of  Engtneen 
ATTN:  Tech  Monitor 
ATTN:  CE1M-SL  (2) 

ATTN:  CECC-P 
ATTN:  CECW 
ATTN:  CECW-0 
ATTN:  CECW-P 
ATTN:  CEEC 
ATTN:  CEBC-C 
ATTN:  CEEC-E 
ATTN:  CERD 
ATTN:  CERD-C 
ATTN:  CERD-M 
ATTN:  CERM 
ATTN:  DAEN-ZCE 
ATTN:  DAEN-ZCF 
ATTN:  DAEN-ZCI 
ATTN:  DAEN-ZCM 
ATTN:  DAEN-ZCZ 

FF.SA,  ATTN:  Library  22060 
ATTN:  DET  III  79906 

US  Army  Engineer  Districts 
ATTN:  Library  (41) 

US  Army  Engineer  Divisions 
ATTN:  Library  (14) 

US  Army  Europe 
AEAEN-ODCS/Engr  09403 
ISAE  09001 
V  Corps 

ATTN:  DEH  (II) 

VII  Corps 
ATTN:  DEH  (15) 

2 1st  Support  Command 
ATTN:  DEH  (12) 

USA  Berlin 
ATTN:  DEH  (12) 

USASETAF 
ATTN:  DEH  (10) 

Allied  Command  Europe  (ACE) 

ATTN:  DEH  (3) 

8th  USA,  Korea  (19) 

ROK/US  Combined  Forces  Command  98301 
ATTN:  EUSA  HHC  CFC/Engr 


USA  Japan  (USARJ) 

ATTN:  AJEN  DEH  96343 
ATTN:  DEH  Honshu  96343 
ATTN:  DEH-Okinawa  96331 

4 16th  Engineer  Command  80623 
ATTN:  Facilities  Engineer 

US  Military  Academy  10968 
ATTN:  Facilities  Engineer 
ATTN:  Dept  of  (leography  4 
Computer  Science 
ATTN:  DSC PEH/MAEN  A 

AMMRC,  ATTN  DRXMR  WF.  02172 

USA  AMCCOM  61299  8000 
ATTN:  AMSMC-RI 
ATTN:  AMSMC  IS 

AMC  -  Dir.,  Inst.,  4  Serve 
ATTN:  DEH  (23) 

ATTN:  AMCEN-A 

DLA  ATTN:  DLA  Wl  22314 

DNA  ATTN:  NADS  20305 

FORSCOM 

FORSCOM  Engr,  ATTN:  AFEN  DEH 
ATTN:  DEH  (23) 

H8C 

ATTN:  HSLO-F  78234 
ATTN:  Facllltlea  Engineer 
Fltxsimons  AMC  $0240 
Walter  Reed  AMC  20012 

IN8COM  -  Ch,  Inst  I .  Olv 
ATTN:  Facilities  Engineer  (3) 


MTMC 

ATTN:  MTMC-SA  20315 
ATTN:  Facilities  Engineer  (3) 

NARADCOM,  ATTN:  DRDNA-F  01760 

TARCOM,  Fee.  Dlv.  48090 

TRADOC 

HQ,  TRADOC,  ATTN:  ATEN-DEH 
ATTN:  DEH  (19) 

TSARCOM,  ATTN:  STSAS-F  63120 

USACC,  ATTN:  Facilities  Engr  (2) 

WESTCOM 

ATTN:  DEH,  Ft.  Sharter  96858 
ATTN:  APEN-IM 

SHAPE  09055 

ATTN:  Surv.  Section,  CCB-OPS 
Infrastructure  Branch,  LANDA 

HQ  USEUCOM  09128 
ATTN:  ECJ4/7-LOE 

FORT  BELVOIR,  VA  22060  (7) 

ATTN:  Canadian  Liaison  Officer 
ATTN:  British  Liaison  Officer 
ATTN:  Australian  Liaison  Officer 
ATTN:  French  Liaison  Officer 
ATTN:  German  Liaison  Officer 
ATTN:  Water  Resources  Support  Ctr 
ATTN:  Engr  Studies  Center 
ATTN:  Engr  Topographic  Lab. 

ATTN:  ATZA-DTE-SU 
ATTN:  ATZA  DTE-EM 
ATTN:  RAD  Command 

CRREL,  ATTN:  Library  03755 

WES,  ATTN:  Library  39180 

HQ,  XVIII  Airborn  Corps 
and  Fort  Bragg 
ATTN:  AFZA-FE  EE  28307 

Area  Engineer,  AEDC  Area  Office 
Arnold  Air  Force  Station,  TN  37389 

Chanute  AFB,  IL  61868 
3345  CES/DE,  Stop  27 

Norton  AFB.  CA  92409 
ATTN:  AFRCE  MX/DEE 

AFESC,  Tyndall  AFB,  FL  32403 

NAVFAC 

ATTN:  Engineering  Command  (7) 
ATTN:  Division  Offices  (6) 

ATTN:  Naval  Public  Works  Center  (9) 
ATTN:  Naval  Civil  Engr  Lab.  (3) 

NCEL 

ATTN:  Library,  Code  L08A  93043 

Defense  Technical  Info.  Center  22314 
ATTN:  DDA  (2) 

SETAF  Engineer  Design  Office  09019 

Engr  Societies  Library,  NY  10017 

Natl  Guard  Bureau  Inst  I .  Div  20310 

US  Govt  Print  Office  22304 
Receiving  Sect/Depository  Copies  (2) 

US  Army  Env.  Hygiene  Agency 
ATTN:  HSHB  E  21010 

National  Bureau  of  Standards  20899 

310 

08/87 


MOW,  ATTN:  OEH  (3) 


RAMP  DISTRIBUTION 


Chief  of  Engineers  Comender 


A1“N; 

3AEN-2C 

Am: 

Am: 

OAEN-ZCP 

ATTN: 

OAEN-ZCP-P 

Comender 

ATTN: 

OAEN-ZCP-R 

ATTN: 

Am: 

OAEN-ZCP-U 

US  Amy  Europe 

ATTN-.  EUODC  09757 
ATTN:  EUOCO  09757 
ATTN:  EUOCO-C  09757 
ATTN-  EUOED  09757 
ATTN:  EUOEO-M  09757 
ATTN:  EUOEO-MA  09757 
ATTN:  EUDEO-MO/EUOED-MP 
ATTN:  EUOEO-NP  09757 
ATTN:  EUOEO-P  09757 
ATTN:  EUOEO-r  09757 

US  Amy  Engineer  Division 


ATTN: 

HNOOE  25807 

ATTN: 

MNOEO-PN/HNOCD-H  25807 

ATTN: 

HN0E0-0H  25807 

ATTN: 

MEOEO-N  09038 

ATTN: 

ME DOE  09038 

ATTN: 

nedpn/heocp-p 

09038 

ATTN: 

MR ODE  68101 

ATTN: 

MROCO-C  68101 

ATTN: 

MR0E0-MR0M0-A  68101 

ATTN: 

NAOOE  10007 

ATTN: 

naoeo-m/naoco 

10007 

ATTN: 

NPOOE  97208 

ATTN: 

NPOEN/NPOCO  97208 

ATTN- 

0B00E  45201 

ATTN: 

OROEO-M/QROCO 

45201 

ATTN: 

POOOE  96858 

ATTN: 

POOEO-M/POOCO 

96858 

ATTN: 

SAOOE  30303 

ATTN: 

SAOEN-N/SAOCO 

30303 

ATTN: 

SPOOE  94111 

ATTN : 

SPOED-T/SPOCO 

AT’N 

SNOZA  75242 

ATTN: 

iUOCO-N/SUOCO 

7524 2 

Am: 

MRKOE  64106 

ATTN: 

NAAED-N/NARCO 

64106 

Am: 

NAOOE  68102 

ATTN: 

MAOEO-N/MAOCO 

68102 

ATTN: 

NAIOE  21203 

ATTN: 

NABEN-N/NA8C0 

21203 

Am: 

NANCE  10278 

ATTN: 

NANEN-M/NANCO- 

A  10278 

Am: 

NAO0E  23510 

ATTN: 

NAOEN-N/NAOOP 

23510 

Am: 

NPAOE  99150 

ATTN: 

NAAEN-PN/NPACO 

99150 

Am: 

NPSEN-RS/NPSCO 

98142 

ATTN: 

NASDE  98142 

ATTN: 

OAOEO-N/OAOCO 

45201 

Am: 

OALOE  40201 

Am: 

OALEO-M/OAICO 

40201 

Am: 

POFOE  9(301 

Am: 

POEED-N/POFCD 

96301 

Am: 

POJOE  91343 

Am: 

POJED-N/POUCD 

96343 

Am: 

SAME  36628 

Am: 

SAMN-N/SAMO 

36628 

ATTN: 

SASOE  31402 

Am: 

SASEN-N/SASCO 

31402 

ATTN: 

SPADE  95814 

ATTN: 

SPIED-8/SPIC0 

90053 

ATTN: 

SPAEO-N/SPACO 

95814 

ATTN: 

SPLDF  90053 

ATTN: 

SUFOE  76102 

US  Amy  Europe 

HQ  USAEUR  end  7  IN  Amy 
ATTN:  AENEN  09A03 
ATTN:  AENEN-CP  09A03 
ATTN:  AENEN- IF  09403 
ATTN:  AENEN-MT  0940J 
ATTN:  AEA6S-FN0  09403 
ATTN:  AEAGO-RN  09403 


HQ  FORSCON 
AFEN-COC  30330 

HQ  TRAOOC 
ATEN-C  23651 


END 

f  ILmeD 

II  z* 
D  T  UL- 


